循环遍历表格中的每个单元格

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