7

这应该很简单,但我有点卡住了。

我在工作表中有一个名为“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

非常感谢您的回答...我解决了这个问题:

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
4

2 回答 2

7

更直接地使用第一列

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
于 2012-10-05T11:30:21.083 回答
0

For Each tRow In ClientTable 被解释为For Each tRow In ClientTable.Cells
试试这个:
For Each tRow In ClientTable.Rows

于 2012-10-05T11:18:01.797 回答