Excel VBA宏來解析多行選項卡式文本框

Question

我是制作Excel宏的新手，我認為我在最新的項目中有點過於野心勃勃。 我基本上想解析一件實驗室設備的輸出，以幫助我將單元格歸檔到一個文件中，該文件將用於處理實驗數據。

我想將設備的原始輸出粘貼到文本框中，然后讓宏將數據拆分到多個單元格中。 在原始數據中，文本由制表符水平分隔，由換行符垂直分隔。

例如

data1 [tab] data2 [tab] data3 [換行符] data4 [tab] data5 [tab] data6 [LB]

依此類推，然后將其解析為水平3個單元格和垂直2個單元格。

任何想法如何輕松做到這一點？

歡呼尤西。

Answer 1

您需要將文本框的值拆分兩次，首先創建行，然后再將其拆分為單元格。

Dim rows As Variant
Dim columns As Variant
Dim i As Integer
Dim j As Integer

i = 1
rows = Split(TextBox1.Value, vbNewLine)

For Each r In rows

j = 1
columns = Split(r, vbTab)

For Each c In columns

Sheets("Sheet1").Cells(i, j).Value = c

j = j + 1

Next c
i = i + 1
Next r