Szia!
Makróval meg lehet oldani. Lapfülön jobb klikk, Kód megjelenítése. Ezzel bejutsz a VB szerkesztőbe. A jobb oldali üres lapra másold be:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
On Error Resume Next
Range(Target.Address).Select
Selection.TextToColumns Destination:=Range(Target.Address), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, Semicolon:=True, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
On Error GoTo 0
End If
End Sub
Mikor beviszed az A oszlop egy cellájába az adatokat, indul a makró, és szétválasztja a QR kódokat az aktuális sor celláiba.
A füzetet makróbarátként kell mentened.
.
