vba - 将条形码中的数据拆分到 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

我还没有完全测试这一点，但现在在将一个值插入到列 a 之后，它将被拆分到右侧的单元格中。显然修改A1:A10以匹配您的需要。