vba - Excel VBA - バリアントを使用した列数

Question

フォーラムを検索しましたが、コードの一部を機能させるのに本当に苦労しています。基本的には、シート 1 を検索し、条件に応じて 1 つ以上の列を特定のワークシートにコピーするという考え方です。つまり、シート 1 の列 1 と 3 に「copy 01」が含まれている場合は、両方の列をシート 2 にコピーし、シート 1 の列 2 と 4 に「copy 02」が含まれている場合は、両方の列をシート 3 にコピーします。

コードを使用して行を数えることはできますが、列を数えることはできません。列の範囲を調整しないことに関連しているようですが、これを修正するアイデアはありません! どんな助けでも大歓迎です。

 'Row    
Dim NR As Long
Dim d As Variant

d = ws1.Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
   For NR = 1 To UBound(d, 1)

'column
Dim NC As Long
Dim e As Variant

e = ws1.Range(Cells(1, Columns.Count).End(xlToLeft).Column).Value 
    For NC = 1 To UBound(e, 1)

ありがとう、スチュワート