テーブルの各セルをループする

Question

ループするテーブルがあります。アクティブなセルに1が含まれている場合は、表の外のセルに列見出しが戻され、コンマ区切りのリストに入れられます。

私はそのループがセルごとに最初の行のセルを越えて進み、各TRUEリターンでビルドするコンマ区切りのリストを探しています。

ループが行の最後にヒットしたら、次の行にドロップして同じプロセスを続行する必要があります（ただし、行2でtrueを返したものはコンマ区切りリストを作成します）。

Answer 1

私はあなたを手伝ってくれます！ （うまくいけば）

Dim x, y as Integer 
x = 1 
y = 1 

For y = 1 To 100 
    If Worksheets("Sheet1").Cells(y, x) = "1" Then 
     If Worksheets("Sheet2").Cells(1, 1) = "" Then 
     Worksheets("Sheet2").Cells(1, 1) = Worksheets("Sheet2").Cells(1, 1) & x & "/" & y 
     Else 
     Worksheets("Sheet2").Cells(1, 1) = Worksheets("Sheet2").Cells(1, 1) & ", " & x & "/" & y 
     End If 
    End If 
    If y = 100 And x < 100 Then 
     y = 1 
     x = x + 1 
    End If 
Next y 

あなたはVBAに慣れていたので、私は"Sheet(n)"あなたは（英語、ドイツ語、スペイン語）を使用してExcelを使用している言語に依存していることを教えてくれます。あなたが望むものが欲しいと願っています。 :)

あなたの最近のコメントをもとに次のコード：あなたは、これまで、あなたが持っているものを私たちを見ることができるもの

Dim y, x as Integer 
Dim aString as String 

y = 2 
x = 1 

For y = 2 To 100 
    If Worksheets("Sheet1").Cells(y, x) = "1" Then 
     aString = Worksheets("Sheet2").Cells(1, x) 
     If Worksheets("Sheet2").Cells(1, 1) = "" Then 
      Worksheets("Sheet2").Cells(1, 1) = _ 
      Worksheets("Sheet2").Cells(1, 1) & aString 
     Else 
      Worksheets("Sheet2").Cells(1, 1) = _ 
      Worksheets("Sheet2").Cells(1, 1) & ", " & aString 
     End If 
    End If 
    If y = 100 And x <> 100 Then 
     y = 2 
     x = x + 1 
    End If 
Next y