把VBA代码改写用数组 选取与A1单元格相同

laoau138

把VBA代码改写用数组   选取与A1单元格相同

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, j%
   
3. arr = Range("a1").CurrentRegion
   
4. s = [a1]
   
5. For i = 1 To UBound(arr)
   
6.     For j = 1 To UBound(arr, 2)
   
7.         If arr(i, j) = s Then p = p & "," & Cells(i, j).Address
   
8.     Next
   
9. Next
   
10. Range(Mid(p, 2)).Select
    
11. End Sub

复制代码

laoau138

dsmch 发表于 2016-11-15 20:27

Range(Mid(p, 2)).Select      这一句为什么不用加引号

laoau138

dsmch 发表于 2016-11-15 20:27

本身就是字符串.................................是因为mid，还是什么原因，本身就是字符串