VBA用数组把单元格用select选择起来

laoau138

VBA用数组把单元格用select选择起来

望帝春心

1. Sub test()
   
2.     Dim rng As Range
   
3.     arr = Sheets("sheet1").[a1].CurrentRegion.Value
   
4.     For i = 1 To UBound(arr)
   
5.         For j = 2 To 8 Step 2
   
6.             If arr(i, j) = 100 Then
   
7.                 If rng Is Nothing Then Set rng = Cells(i, j - 1).Resize(, 2) _
   
8.                     Else Set rng = Union(rng, Cells(i, j - 1).Resize(, 2))
   
9.             End If
   
10.          Next
    
11.     Next
    
12.     rng.Select
    
13. End Sub

复制代码

laoau138

望帝春心 发表于 2016-12-16 16:43

望帝春心 大侠VBA神功    似乎进步了

望帝春心

laoau138 发表于 2016-12-16 17:31
望帝春心 大侠VBA神功    似乎进步了

老师谬赞了