excel – 根据第一个单元格中的数字，将单元格数据拆分为其他单元格

我有一个单元格在Excel中包含以下数据

108-0,109-1,110-0,111-2,112-0,113-192,114-87,115-100,116-80,117-60

我需要创build一个脚本或语句，可以将单元格中的数据拆分为自己的单元格。

像数据一样：

108-0将被放入数据0的单元格A108中，109-1将被放入数据1的单元格A109中。

那将如何完成？ 任何提示我应该读什么？

提前致谢

我忘了提及Excel表格应该自动执行。 我正在导入几百个这样的100-1值，所以它们应该被自动放入自己的单元格中。

结果 – 这对我有用：

Sub tst() Dim X As Variant X = Split(Range("A1").Value, ",") Range("A1").Resize(UBound(X) - LBound(X) + 1).Value = Application.Transpose(X) End Sub 

Answer 1

你可以使用UDF：

 Function splitThem(r As Range, delimeter As String) splitThem = WorksheetFunction.Transpose(Split(r, delimeter)) End Function 

只需selectA108:A117 ，在公式栏中input下一个公式=splitThem(A1,",")并按CTRL + SHIFT + ENTER以评估它

UPD：

让你的值在A1:D1范围，比你可以使用：

 Sub test() Dim c As Range Dim str As Variant On Error Resume Next For Each c In Range("A1:D1") c.Offset(1).Resize(UBound(str)) = WorksheetFunction.Transpose(Split(c, ",")) Next End Sub