返回列表 上一主題 發帖

[發問] 每點擊該儲存格自動從該儲存格中的四個字分出來到G,H,I,J呢?

回復 1# metrostar
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Target.Column <> 3 And Target.Column <> 4 Then Exit Sub
  3. Application.DisplayAlerts = False
  4.     Selection.TextToColumns Destination:=Range("G" & Selection.Row), DataType:=xlFixedWidth, _
  5.         FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1), Array(12, 1)), _
  6.         TrailingMinusNumbers:=True
  7. Application.DisplayAlerts = True
  8. End Sub
複製代碼
錄製巨集改一下就好了 metrostar304.rar (8.75 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 要批評別人時,先想想自己是否完美無缺。
返回列表 上一主題