[已解决]多張工作表中FIND值後清除及另存新檔

happymary2

有個活頁部內有多張工作表, 想由第3張-5張工作表(即A,B,C), 找尋Q的值後將相關儲存格清除, 再另存新檔(包括值與格式), 就找尋Q的值後不知如何擴展至所有工作表 Find and clear.rar (25.25 KB, 下载次数: 3)

2015-8-11 22:08 上传

点击文件名下载附件 , 求賜教:

Sub Clear2()
    Dim ws As Worksheet
    Dim rng As Range
   
    Set rng = Sheets("???").Range(Cells(1, 2), Cells(50, 2)).find("Q", LookIn:=xlValues)

    If Not rng Is Nothing Then
        rng.Offset(0, 1).Resize(5, 6).Select
        Selection.ClearContents
     Else
        MsgBox "No match found. "
    End If



End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-11 23:22

Find and clear3.rar (26.1 KB, 下载次数: 5)

2015-8-11 23:22 上传

点击文件名下载附件

或指定工作表名后，去判断。

跳转到最佳答案楼层

爱疯

Sub Clear2()
    Dim ws As Worksheet
    Dim rng As Range

    For i = 4 To 6    '需事先确认A,B,C的位置
        With Sheets(i)
            Set rng = .Range(.Cells(1, 2), .Cells(50, 2)).find("Q", LookIn:=xlValues)
            If Not rng Is Nothing Then rng.Resize(4, 5).ClearContents Else MsgBox "No match found. "
        End With
    Next i
End Sub
Find and clear2.rar (25.9 KB, 下载次数: 3)

2015-8-11 23:18 上传

点击文件名下载附件

爱疯

Find and clear3.rar (26.1 KB, 下载次数: 5)

2015-8-11 23:22 上传

点击文件名下载附件

或指定工作表名后，去判断。

happymary2

爱疯 发表于 2015-8-11 23:22
或指定工作表名后，去判断。

感激不已!有新問題VBA剛發出, 同一檔案, 可拜託嗎?

多謝!

高山之岫

多谢