小编deL*_*deL的帖子

在VBA编写方面，我是一个完全新手，一直在寻找可以用来解决问题的运气答案。我已经看到了一些相关的问题，但没有任何解决方法。

我有一个录制的宏，该宏通过使用连接函数简单地将前导0添加到数字。我正在使用相对引用，以便该宏将在列A中选择的任何单元格上运行。如果我想为每个单元格一个前导地添加一个前导零，这将起作用。但是，我希望能够简单地选择要向其添加前导0的AI列中的单元格，然后立即在所有选定的单元格上运行宏。任何帮助是极大的赞赏！

Sub leadingzerotake2()
 ActiveCell.Offset(0, 10).Range("A1").Select
 ActiveCell.FormulaR1C1 = "=CONCATENATE(""0"",RC[-10])"
 ActiveCell.Select
 Selection.Copy
 ActiveCell.Offset(0, -10).Range("A1").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
 ActiveCell.Offset(0, 10).Range("A1").Select
 Application.CutCopyMode = False
 Selection.ClearContents
 ActiveCell.Offset(0, -10).Range("A1").Select
End Sub

谢谢！！！