excel - 增加包含数字和文本 VBA 的单元格值

Question

我已经尝试过这段代码，它适用于只包含数字的单元格:

Sub IncreaseCellValue()
    'Add 1 to the existing cell value
    Range("A1").Value = Range("A1") + 1
End Sub

如果单元格有文本和数字，我该如何做类似的事情。例如，我有“Apple 1”，我想将单元格文本“增加”为“Apple 2”，下次运行宏时我想要“Apple 3”。

Answer 1

这是解决此问题的另一种方法:

Sub IncreaseCellValue()
    Dim value As Variant

    'Add 1 to the existing cell value

    If IsNumeric(Range("A1").value) Then
       Range("A1").value = Range("A1") + 1
    Else
       value = Split(Range("A1").value, " ")
       Range("A1").value = value(0) & " " & (CInt(value(1)) + 1)
    End If
End Sub

它将涵盖您在问题中提出的 2 个案例，但并非您可以提出的所有情况。