Question

我是一个相当新的为excel制作宏的人，我想我在我的最新项目中有点过于雄心勃勃。我基本上想要解析一个实验室设备的输出，以帮助我将文件中的单元格存储在我将用来处理实验数据的文件中。

我想在文本框中粘贴设备的原始输出，然后让宏在多个单元格中拆分数据。在原始数据中，文本由制表符水平分隔，并通过换行符垂直分隔。

E.g。

data1 [tab] data2 [tab] data3 [换行] data4 [tab] data5 [tab] data6 [LB]

依此类推，然后将其垂直地分成2个单元格的3个单元格。

任何想法如何轻松完成？

欢呼声贝纳。

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

excel VBA宏来解析多行选项卡式文本框

1 个答案: