ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] excel ½Æ»s­È

[µo°Ý] excel ½Æ»s­È

¦U¦ì¤j¤j,

·Q½Ð°Ý¦pªG¦bÀx¦s®æ­È¥Î¦Û­q³]©w
¨Ò¦p: 470L=>³]©w###"L"«á, ¥u­n¿é©w¼Æ¦r470´N·|±a¥X470L
¦pªG§Ú·Q§â470L½Æ»s¨ì¨ä¥¦ªí®æ, ¦pªG¥Î¶K¤W­Èªº¤è¦¡¥u·|Åã¥Ü470, ¥i¥H¦³§Oªº½Æ»s¤è¦¡±a¥X470L¶Ü?

¦^´_ 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)

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD