Question

我只有2个范围，比如Range（“A1：A10”）和Range（“B1：B10”），然后运行此代码：

Dim a, b, i, j
i = 2: j = 2


For Each a In range("A1:A10")
    For Each b In range("B1:B10")
        range("D" & i).Value = a
        range("E" & j).Value = b
        j = j + 1
        i = i + 1
    Next b
Next a

End Sub

我需要创建一个If条件来跳过空格，但它似乎不起作用。

第二个问题：

如果我在将它们设置为选择后命名范围并且xltodown你会怎么做？

Answer 1

你可以这样做：

Dim a, b, i, j
i = 2: j = 2


For Each a In range("A1:A10")
    For Each b In range("B1:B10")
        If b.Value="" Then
          GoTo ContinueInnerForLoop
        End If
          range("D" & i).Value = a
          range("E" & j).Value = b
          j = j + 1
          i = i + 1
    ContinueInnerForLoop:
    Next b
Next a

因为VBA不支持 继续 ，这是使用标签并跳转到的首选方式。

希望它有所帮助！

忽略范围内的空白单元格

1 个答案: