☰

如何在 Excel 中使用 VBA 执行此功能？

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 worksheet-function microsoft-excel-2007 vba
如何在 Excel 中使用 VBA 执行此功能？

我正在尝试在 VBA 中获取此功能，但我对此还不熟悉。我似乎不知道如何完成此操作：

我想要做的是，对于 B 列中每个数字单元格，我想取 H 列中的下两个单元格，即如果它是 B7，我想取 H8 和 H9（H 列中的下两行值）并连接它们（它们是字符串）并将它们保存在 I7（与 B7 同一行）中，最后删除 H8、H9 中的值。

这就是我所到达的地方，我知道这并不多。

Private Sub CommandButton1_Click()
Dim B As Range, H As Range, I As Range
For Each B In ClientTable.Columns(2).Cells
    If IsNumeric(B) Then
    (What should be done here?)    
    End If
Next B
End Sub

答案1

我发现IsNumeric(B)对于空白单元格也是如此，所以我If相应地更改了您的陈述。这对我有用：

    If IsNumeric(B) And B <> "" Then
        Cells(B.Row, 9) = Cells(B.Row + 1, 8) & Cells(B.Row + 2, 8)
        Cells(B.Row + 1, 8) = ""
        Cells(B.Row + 2, 8) = ""
    End If
    If B.Row > 9 Then Exit For

显然8和分别是和的9列号。我添加了HI

If B.Row > 9 Then Exit For

因为我遇到了循环无法终止的问题；如果

For Each B In ClientTable.Columns(2).Cells

对你有用，你可以取出If B.Row > 9 Then Exit For。

相关内容