如何删除修改字符串以从新工作表中删除字母

Question

所以我一直在尝试创建一个宏来格式化打开的新工作文件，然后修改 1 列以从数字字符串中删除字母（例如 20180717a 变为 20180717）。我已经尝试了几件事并想出了这段代码，但它似乎无法正常工作：

Sub Creating_progress_reports()

    Dim wb As Workbook
    Dim myfilename As String

    myfilename = "xxxx.xlsx"
    Set wb = Workbooks.Open(myfilename)

    Dim str1 As String
    Dim str2 As String
    Dim rngTemp As Range
    Dim rngCell As Range

    str1 = "a"
    str2 = "b"
    str3 = "c"
    str4 = "d"

    With Workbooks("xxxx.xlsx").Sheets("xxxx")
    Set rngTemp = Columns(6).CurrentRegion

    For Each rngCell In rngTemp

    If InStr(1, rngCell, str1) > 0 Then
        rngCell = Replace(rngCell.Value, str1, "")
    End If

    If InStr(1, rngCell, str2) > 0 Then
        rngCell = Replace(rngCell.Value, str2, "")
    End If

    If InStr(1, rngCell, str1) > 0 Then
        rngCell = Replace(rngCell.Value, str3, "")
    End If
        If InStr(1, rngCell, str1) > 0 Then
        rngCell = Replace(rngCell.Value, str4, "")
    End If
    Next rngCell
    End With
End Sub

错误是vba代码通过了，但是没有结果。字符串中的字母仍然存在。

Answer 1

您需要在 Columns(6).CurrentRegion 之前添加一个 . 来引用 Workbooks("xxxx.xlsx").Sheets("xxxx"):

With Workbooks("xxxx.xlsx").Sheets("xxxx")
    Set rngTemp = .Columns(6).CurrentRegion

否则指的是以下之一：

代码所在的Sheet；
ActiveSheet，如果代码里面没有Sheet;

如何删除修改字符串以从新工作表中删除字母

How to remove modify a string to remove letters from a new worksheet

excel

vba

letters