[已解决]求助代码的修改，谢谢了 俺是VBA盲，请别见怪

zhycl

借用老师的下面代码，想请老师再给修改一下，清空A5单元格中的连续的三个汉字。请给予修改，谢谢

Private Sub CommandButton1_Click()
    Dim mypath As String
    Dim sht As Worksheet
    Dim MyFile As String
    Application.ScreenUpdating = False
    mypath = ThisWorkbook.Path & "\"
        myname = Dir(mypath & "*.xls")
            Do While myname <> ThisWorkbook.Name And myname <> ""
                Workbooks.Open mypath & myname
                With ActiveWorkbook
                    s$ = Left(myname, 1)
                   If InStr("ABCD", s) Then
                      For Each sht In Sheets
                          If Left(sht.Name, 3) = s & "01" Then sht.Range("A5") = Replace(sht.Range("A5"), " ", "")
                      Next
                   End If
                    ActiveWorkbook.Close True
                End With
            myname = Dir
        Loop

    Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2013-8-22 22:00

Private Sub CommandButton1_Click()
    Dim mypath As String
    Dim sht As Worksheet
    Dim MyFile As String
    Application.ScreenUpdating = False
    mypath = ThisWorkbook.Path & "\"
    myname = Dir(mypath & "*.xls")
    Do While myname <> ThisWorkbook.Name And myname <> ""
        Workbooks.Open mypath & myname
        With ActiveWorkbook
            S$ = Left(myname, 1)
            If InStr("ABCD", S) Then
                For Each sht In Sheets
                    If Left(sht.Name, 3) = S & "01" Then
                        CL = sht.Range("A5").Value
                        S = InStr(CL, "省")
                        T = InStr(CL, "市")
                        sht.Range("A5") = Left(CL, S) & Right(CL, Len(CL) - T)
                    End If
                Next
            End If
            ActiveWorkbook.Close True
        End With
        myname = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

我心飞翔410

不是很明白 最好附件加说明 更能说明问题

zhycl

我心飞翔410 发表于 2013-8-22 21:11
不是很明白 最好附件加说明 更能说明问题

上面这段代码是批量清空excel文件中“*01”开头的工作表中A5单元格中所有的 空格，我现在想请老师改改这段代码，让它来批量删除A5单元格中的连续的几个字符。
源代码的意思是：
比如源程序的效果是：A5单元格内容为：“名称：      酸辣粉      ”，这个里面有空格，运行程序后得到“名称：酸辣粉 ”。
现在想改成的效果是：A5单元格内容为：“名称：**省**市**县**”，想把其中的”**市“删除掉得到“**省**县**”

djyjysxxs

sht.Range("A5") = Replace(sht.Range("A5"), " ", "")
换成
sht.Range("A5") .Replace What:="省*市", Replacement:="省", LookAt:=xlPart
试试看

zjdh

Private Sub CommandButton1_Click()
    Dim mypath As String
    Dim sht As Worksheet
    Dim MyFile As String
    Application.ScreenUpdating = False
    mypath = ThisWorkbook.Path & "\"
    myname = Dir(mypath & "*.xls")
    Do While myname <> ThisWorkbook.Name And myname <> ""
        Workbooks.Open mypath & myname
        With ActiveWorkbook
            S$ = Left(myname, 1)
            If InStr("ABCD", S) Then
                For Each sht In Sheets
                    If Left(sht.Name, 3) = S & "01" Then
                        CL = sht.Range("A5").Value
                        S = InStr(CL, "省")
                        T = InStr(CL, "市")
                        sht.Range("A5") = Left(CL, S) & Right(CL, Len(CL) - T)
                    End If
                Next
            End If
            ActiveWorkbook.Close True
        End With
        myname = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

zhycl

djyjysxxs 发表于 2013-8-22 21:54
sht.Range("A5") = Replace(sht.Range("A5"), " ", "")
换成
sht.Range("A5") .Replace What:="省*市",  ...

提示错误