Excel VBA Range中的第1列该怎么写呢？

字数限制

z332 发表于 2021-2-22 17:22
这是一个方法。但是rng.Columns(1)是表示什么呢？

同问。Set Rng = Intersect(Rng, Rng.Columns(1))  这样就能正确显示rng.count，直接rng.columns(1)就不行

z332

1. Sub Example()
   
2.     Dim rng As Range
   
3.     Dim firstColumn As Range
   
4.     Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B3")
   
5.     Set firstColumn = rng.Columns(1)
   
6.     firstColumn.Select
   
7.     For Each x In Selection
   
8.         MsgBox x
   
9.     Next
   
10. End Sub

复制代码