Option Explicit
Sub 特別複製() '輔助表法
Dim SN, S, Ads, a As Range
Application.ScreenUpdating = False
SN = "L輔助表"
For Each S In Sheets
If S.Name = SN Then
Sheets("L輔助表").Cells.Clear
GoTo 66
End If
Next
Worksheets.Add.Name = "L輔助表"
Sheets("L輔助表").Visible = False
66
Ads = Selection.Address
If Ads Like "*,*" Then
MsgBox "無法在不相鄰範圍執行此命令!"
Exit Sub
End If
Range(Ads).Copy Sheets("L輔助表").Range(Ads)
For Each a In Sheets("L輔助表").Range(Ads)
If a.NumberFormatLocal = "###L" And a Like "###" Then
a = a.Value & "L"
End If
Next
Sheets("L輔助表").Range(Ads).Copy
Application.ScreenUpdating = True
End Sub
[attach]35140[/attach]