har*_*ryg 7 excel vba loops range excel-vba
这应该是非常简单的但我有点卡住了.
我在工作表中有一个名为"ClientReturns"的表.此表的第一列包含客户端的帐号.
我希望每次都能在表格中获取帐号.这是我到目前为止所做的,但当我只想要第一列中的数据时,它也会通过其他列中的数据.
Sub doStuff()
Set ClientTable = Sheets("Returns").range("ClientReturns")
For Each tRow In ClientTable
AccNum = tRow.Columns(1).Value
'Do stuff with the account num
Next AccNum
End Sub
Run Code Online (Sandbox Code Playgroud)
非常感谢答案...我解决了这个问题:
Sub getReturns()
Dim lookR As range, c As range
With Sheets("Returns").ListObjects("ClientReturns")
Set lookR = .ListColumns("Account Number").DataBodyRange
For Each AccNum In lookR.Cells
'Let's see if it's a combined account
Next AccNum
End With
End Sub
Run Code Online (Sandbox Code Playgroud)
更直接地使用第一列
Dim ClientTable As Range
Dim rng1 As Range
Set ClientTable = Sheets("Returns").Range("ClientReturns")
For Each rng1 In ClientTable.Columns(1).Cells
AccNum = rng1.Value
Next
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
33524 次 |
| 最近记录: |