VBA

Question

我的新 VBA 代码有点问题..

情况如下：我有一个 excel，其中有两个 sheets（+1 包含一个数据库）。 Sheet 1 在 G 列中包含 Phone 数字，格式如下：050-7080-6030 / 301-123-456 / 06-1234-4567 等。我需要将其复制到 Sheet 2 同时删除“-”（出于各种原因，我通过创建 table 实现了这一点 - 请参阅下面的代码）。我只是使用复制部分的记录将其粘贴为一个值 - 这工作得很好 - 但是，在 Sheet 2 上，我在运行第二个宏之后丢失了所有前导零。我已经尝试将单元格格式应用为整个 sheet（两者）甚至 vba 代码（如 NumberFormat = ...）的文本，但似乎没有任何效果。知道如何解决这个问题吗？提前致谢！以下是代码：

Sub copy()

'copy

Rows("4:6").Select
Selection.copy
Sheets("Sheet2").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

Sub Multi_FindReplace()

Dim wks As Worksheet
Dim fndList As Integer
Dim rplcList As Integer
Dim tbl As ListObject
Dim myArray As Variant

Set wks = Sheets("Sheet2")

Set tbl = Worksheets("DBs").ListObjects("Phone")


Set TempArray = tbl.DataBodyRange
myArray = Application.Transpose(TempArray)


fndList = 1
rplcList = 2

With wks

For x = LBound(myArray, 1) To UBound(myArray, 2)

      .Range("G3:I100").Replace What:=myArray(fndList, x), Replacement:=myArray(rplcList, x), _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _
        SearchFormat:=False, ReplaceFormat:=False


Next x

End With

End Sub

Answer 1

问题是由 Excel 处理替换的方式引起的。它正在将您的文本字符串重新格式化为数字，当然会删除前导零。

使用替换命令实际上保留了原始格式。

On Error GoTo Done:
Do
Range("G3:I100").Select
    Selection.Find(What:="-", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        ActiveCell = Replace(ActiveCell.Value, "-", "")
Loop
Done:

请注意，这在技术上是一个无限循环，因为没有退出循环的条件。这里的退出其实就是没有找到指定范围内的“-”而产生的错误。

如果您要搜索的区域有限，我发现这是一种简单的方法。如果是可变区域则将选择行替换为循环之前定义的数组。

VBA - 复制时丢失所有前导零

VBA - Losing all leading zeroes when copying

format

copy

cell

leading-zero