§Ú¦³¤@¬qVBA¦ý¬O§Ú«öALT+F11 §â¤U¦CVBAªº½s½X¥´¶i¥h«á,¤£¯à°õ¦æ,½Ð°Ý¬O¤£¬O¤í¤F¨ÇªF¦è,¦]¬°«ö¤F¤§«á¥X²{¤F¥L¥s§Ú¿é¤J ¥¨¶°¦WºÙ ¤~¯à°õ¦æ,ÁÂÁ ¥»¤H¬O·s¤â,¤@ª½¨Ï¥Îªº¬O sub () ¡C
Sub ModifyColumn(sColum As String, sKey As String)
Dim rngBase As Range
Dim iCount As Integer
iCount = 0
Set rngBase = ActiveSheet.Range(sColum & "1")
While Len(rngBase.Offset(iCount, 0).Value)
With rngBase.Offset(iCount, 0)
If InStr(.Value, sKey) Then
.Offset(0, -2).Value = .Value
.Delete shift:=xlShiftToLeft
End If
End With
iCount = iCount + 1
Wend
End Sub |