value) in a range and add comment showing the addresses S = Mid(Replace(sComment, "," & C.Address, ""), 2) 'Exclude current cell from list of duplicates SComment = sComment & "," & Range(S).Address 'offset from array index to cell address depends on starting point of arrayĭ1(v(i, j)).Add Cells(i + 1, j + 1).Address Value2 'read values into array for faster processing
'many ways to set bounds of the region to be processed Set d1 = CreateObject("Scripting.Dictionary")
0 kommentar(er)
