拆分數據到MS Excel中不同的細胞

Question

我有一個條形碼掃描儀的USB插頭&發揮它在這種形式給數據的字符串在Excel的一個單元4449520450061198001 我想在不同的單元，每次自動分割該數據我的掃描儀讀取代碼。 請幫忙。

問候，

Answer 1

修訂

Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range) 
    Const ws_range = "A1:A10" 

    Dim wb As Workbook 
    Dim ws As Worksheet 
    Dim i As Integer, k As Integer 
    Dim codestr As String 

    Set wb = ThisWorkbook 
    Set ws = wb.Sheets("Sheet1") 

    codestr = Target.Text 
    If Target <> "" Then 
     If Not Intersect(Target, Me.Range(ws_range)) Is Nothing Then 
      With Target 
       k = Len(codestr) 
       i = 2 
       Do Until i = k + 2 
        ws.Cells(Target.Row, i).Value = Mid(codestr, i - 1, 1) 
        i = i + 1 
       Loop 
      End With 
     End If 
    End If 

End Sub 

我還沒有完全測試這一點，但現在的值插入列後，它將被分裂成細胞的權利。顯然修改A1:A10以匹配你所需要的。