Question

我正在Excel VBA中编写代码，我需要用“ - ”替换列中的所有数字。

18
-
-
-
6%
11%
-
-
83%

我可以选择整个列，但只能用 - 替换18。请建议我可能做错了什么或者在我的代码中添加以替换列中的所有内容

For x = 1 To BannerColumn - 1
    If (Cells(FirstRow, FirstColumn).Offset(0, x) < 30) Then
    row1 = Cells(FirstRow, FirstColumn + x).Row
    col1 = Cells(FirstRow, FirstColumn + x).Column


    Set abc = Cells(FirstRow, FirstColumn + x).End(xlDown)
    row2 = abc.Row
    col2 = abc.Column

    Range(Cells(row1, col1), Cells(row2, col2)).Select
    Selection.Replace What:=" ", Replacement:="-", LookAt:=xlPart, MatchCase:=False
   End If
Next x

我正在使用上面的代码。我的要求是我有一个31列的横幅，我需要找到小于30的每个横幅点，并用 - 替换该列。

Answer 1

假设A栏

 Columns("a").cells.numberformat = "-"

全部替换Excel VBA

1 个答案: