如何在 Excel 中使用 VBA 執行此函數？

Question

我正在嘗試在 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

Answer 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。