n7822123

¦^´_ 1# BV7BW

¦n¤[¨S¤W¨Ó³o¸Ì¤F¡A¤W¨Ó®Ì¤@®Ì

¸Õ¬Ý¬Ý¬O¤£¬O§A­nªº

Sub A¨®ÂŸ¹²M°£()
Ÿ¹²M°£ "A¨®"
End Sub

Sub ©Ò¦³¨®ÂŸ¹²M°£()
Ÿ¹²M°£
End Sub

Sub ¦Û¿ïŸ¹²M°£()
¨®½s$ = InputBox("½Ð¿é¤J¨®½s¡AEx:A¨®", Excel¸ß°Ý, "A¨®")
Ÿ¹²M°£ ¨®½s
End Sub

Sub Ÿ¹²M°£(Optional ¨®¸¹ As String)
'¦¹¨ç¼Æ¥Î'¿ï¾Ü©Ê¤Þ¼Æ'¡A¤£¿é¤J¨®¸¹§Yªí¥Ü¥þ³¡²M°£
Arr = Range([B1], [F1].End(4))
If ¨®¸¹ = "" Then ²M°£ = True
For R = 2 To UBound(Arr)
  If Arr(R, 5) = ¨®¸¹ Or ²M°£ Then
      Arr(R, 1) = Replace(Arr(R, 1), "S", "")            '¥h±¼'S'
      Arr(R, 1) = Left(Arr(R, 1), Len(Arr(R, 1)) - 2) '¥h±¼«á¨â¦ì
  End If
Next R
[B1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub

Äx¸¹²M°£-A.rar (29.72 KB)

¤U¸ü¦¸¼Æ: 9

2021-6-8 12:26

n7822123

¦^´_ 4# BV7BW


§Úªºµ{¦¡¥[¤@¦æ´N¦æ¤F~

³Ìªñµo²{·Ç¤j¦bExcel Home ¤]«Ü¬¡ÅD

Sub Ÿ¹²M°£(Optional ¨®¸¹ As String)
'¦¹¨ç¼Æ¥Î'¿ï¾Ü©Ê¤Þ¼Æ'¡A¤£¿é¤J¨®¸¹§Yªí¥Ü¥þ³¡²M°£
Arr = Range([B1], [F1].End(4))
If ¨®¸¹ = "" Then ²M°£ = True
For R = 2 To UBound(Arr)
  If Arr(R, 5) = ¨®¸¹ Or ²M°£ Then
      Arr(R, 1) = Replace(Arr(R, 1), "S", "")            '¥h±¼'S'
      Arr(R, 1) = Left(Arr(R, 1), Len(Arr(R, 1)) - 2) '¥h±¼«á¨â¦ì
      Arr(R, 1) = Arr(R, 1) & "00"
  End If
Next R
[B1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub