[已解决]宏代码中，固定步长的行列变量，如何表达？

lijian8003

1. Sub test()
   
2. Application.ScreenUpdating = False
   
3. Dim cell As Range, xRng1 As Range, xRng2 As Range
   
4. Dim i As Integer
   
5. i = 1
   
6. Set xRng1 = Range("B1:B1000")
   
7. Set xRng2 = Range("A1:A1000")
   
8. For Each cell In xRng2
   
9. If cell.Value <> "" And WorksheetFunction.CountIf(xRng1, cell.Value) = 0 Then
   
10. If WorksheetFunction.CountIf(xRng2, cell.Value) > 2 Then Range("B" & i) = cell.Value: i = i + 1
    
11. End If
    
12. Next
    
13. Application.ScreenUpdating = True
    
14. End Sub

复制代码

问题一：列为变量
Range("B1:B1000")
Range("B" & i)
步长=1
B C D E F...依次各列的变量，如何表达？
Range("B1:B1000")        Range("C1:C1000")        Range("D1:D1000")...
Range("B" & i)        Range("C" & i)        Range("D" & i)...

问题二：行为变量
Range("A1:A1000")
步长=10
Range("A1:A1000")        Range("A11:A1010")        Range("A21:A1020")...
各行的变量，如何表达？

最佳答案

月排行榜 / 总排行榜

砂海

2021-3-18 20:34

Cells 不用列标 , 比range容易控制
====================
Range("B3")
Cells( 3 , 2 )
------------------------------------------
Range("A1:C3")
Range(cells(1,1),cells(3,3)).Select
----------------------------------------------------------------------------------------------
也可以 range("A1").Offset( 偏移行 , 偏移列).resize( 行数 , 列数)来表达

跳转到最佳答案楼层

砂海

Cells 不用列标 , 比range容易控制
====================
Range("B3")
Cells( 3 , 2 )
------------------------------------------
Range("A1:C3")
Range(cells(1,1),cells(3,3)).Select
----------------------------------------------------------------------------------------------
也可以 range("A1").Offset( 偏移行 , 偏移列).resize( 行数 , 列数)来表达

lijian8003

砂海 发表于 2021-3-18 20:34
Cells 不用列标 , 比range容易控制
====================
Range("B3")

谢谢，学习了。

高

Range("B1:B1000").offset(0,1)就是 Range("C1:C1000")
Range("B1:B1000").offset(10,0)就是 Range("B11:B1010")