Andy2483

¦^´_ 1# connietien


Option Explicit
Sub ¯S§O½Æ»s() '»²§Uªíªk
Dim SN, S, Ads, a As Range
Application.ScreenUpdating = False
SN = "L»²§Uªí"
For Each S In Sheets
   If S.Name = SN Then
      Sheets("L»²§Uªí").Cells.Clear
      GoTo 66
   End If
Next
Worksheets.Add.Name = "L»²§Uªí"
Sheets("L»²§Uªí").Visible = False

66
Ads = Selection.Address
If Ads Like "*,*" Then
   MsgBox "µLªk¦b¤£¬Û¾F½d³ò°õ¦æ¦¹©R¥O!"
   Exit Sub
End If
Range(Ads).Copy Sheets("L»²§Uªí").Range(Ads)
For Each a In Sheets("L»²§Uªí").Range(Ads)
   If a.NumberFormatLocal = "###L" And a Like "###" Then
      a = a.Value & "L"
   End If
Next
Sheets("L»²§Uªí").Range(Ads).Copy
Application.ScreenUpdating = True
End Sub
20220810.zip (16.05 KB)

¤U¸ü¦¸¼Æ: 4

2022-8-10 09:24