小编F0l*_*l0w的帖子

我试图让 A1 到 A6 范围内的单元格达到 18 的长度。

其中的当前值：

A233333
A0399
30000
3993833
11111
22222

请注意，并非单元格中的所有值都具有相同的长度。

我想用空格（“”）填充剩余的长度。所以我写了下面的代码，但它似乎不起作用：

Sub PMAP_BAC_Code()

Dim rCell As Range
Dim rRng As Range
Set rRng = Sheet1.Range("A1:A6")

For Each rCell In rRng.Cells
If Len(xCell) <> 18 Then
    xCell.FormulaR1C1 = " "
End If
Next rCell

End Sub

有人能帮助我吗？