將數字添加到文本時出錯

Question

我能夠循環播放數字，但使用文本Do While不會循環播放。

Dim i As Integer 
i = 1 

Do While Cells(i, 1).Value <> "" 
    Cells(i, 2).Value = Cells(i, 1).Value + 1 
    i = i + 1 
Loop 

該如何實現？

Answer 1

您可以循環這樣的，你沒有任何錯誤，當談到VBA語法。唯一的問題是，在表達：當Cells(i, 1).Value是不能轉換爲數字

Cells(i, 1).Value + 1

將引發運行時錯誤。這很簡單，你有一個類型不匹配當Cells(i, 1).Value是一個像「abcd」字符串，你不能將該變體轉換爲一個數字，以便將1添加到它。

在這種情況下，它不是宏代碼的錯誤，而是數據的錯誤。

爲了解決異構數據你都不可能如果檢查值是操縱它作爲一個數字，這樣之前的數字：

Do While Cells(i, 1).Value <> "" 
    If IsNumeric(Cells(i, 1).value) then Cells(i, 2).Value = Cells(i, 1).Value + 1 
    ' ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
    i = i + 1 
Loop 

Answer 2

@ A.S.H在這裏發現了真正的錯誤，但是還有一些其他的事情需要注意：

1. 當通過列循環/行這樣的，它通常最好使用For Each循環。
2. 自己使用Cells暗示了ActiveWorksheet。最好明確地引用你指的是哪些單元格，例如ThisWorkbook.Worksheets("Sheet1").Cells

試試這個：

Sub Test() 
    Dim rng As Range, r As Range 

    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:A100") 'range to loop through 

    For Each r In rng 
     If r.Value <> vbNullString and IsNumeric(r.value) Then 
      r.Offset(0, 1).Value = r.Value + 1 
     End If 
    Next r 
End Sub