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 ClientTableFor Each tRow In ClientTable.Cells
代わりにこれ を試してください：
For Each tRow In ClientTable.Rows

于 2012-10-05T11:18:01.797 に答える