按指定文字替换表，请高师赐教，谢谢

ykcbf1100 · 发表于 2025-12-3 13:15

附件供参考。。。

ykcbf1100 · 发表于 2025-12-3 13:16

Sub ykcbf() '//2025.12.3
Dim sheetCodeName As String
Dim ws As Worksheet
sheetCodeName = "Sheet" & [f2].Value
Set ws = GetWorksheetByCodeName(sheetCodeName)
If Not ws Is Nothing Then
ws.Activate
ws.Range("A3:DE65536").ClearContents
ws.Range("A3").Select
End If
End Sub
Function GetWorksheetByCodeName(codeName As String) As Worksheet
Dim vbComp As Object
Dim ws As Worksheet
On Error Resume Next
For Each vbComp In ThisWorkbook.VBProject.VBComponents
If vbComp.Name = codeName Then
Set GetWorksheetByCodeName = ThisWorkbook.Worksheets(vbComp.Properties("Name").Value)
Exit Function
End If
Next vbComp
Set GetWorksheetByCodeName = Nothing
End Function

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 按指定文字替换表，请高师赐教，谢谢