jackdream

回復 1# metrostar

放在 sheet 裡面試試,不是放在模組裡

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Column = 3 Or ActiveCell.Column = 4 Then
        For i = 0 To 3
            Cells(ActiveCell.Row, 7 + i) = Mid(ActiveCell, i * 4 + 1, 4)
        Next i
    End If
End Sub