excel-根據第一個單元格中的數字將單元格數據拆分為其他單元格

Question

我在excel中有一個單元格，其中包含以下數據

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

我需要制作一個腳本或if語句，可以將數據從單元格拆分為自己的單元格。

像數據一樣：

將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

只需選擇A108:A117 ，在編輯欄中輸入下一個公式=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