excel 如何在同一单元格的每一行中获取数据

rbpvctlc  于 2022-12-05  发布在  其他
关注(0)|答案(1)|浏览(146)

我需要帮助来编写VBA代码,该代码将获取单元格中的所有数据,并将其单独粘贴到其他位置,以便以后引用。我有一个包含多行数据的数据单元格。例如,在单元格A1中,我有一堆数据。

21ABC
22DCF
19CVD
...

我希望能够确定数据的日期,并将其拆分到自己的单元格中。最好是在不同的列中。
因此,上述数据将从A1(1个单个数据单元格)转到3个单独的单元格。

D1    | E1    | F1
21ABC | 22DCF | 19CVD

我试过vbNewline、移位和偏移,但还没能找到一种方法来获取数据并正确地将其拆分。

b1zrtrql

b1zrtrql1#

我想通了。在Excel的数据选项卡下,你去“文本到列”,然后在分隔符下的“分隔符”选择其他“Ctrl + J”为新列。VBA代码将是这样的。

Range("A1:A25").TextToColumns _
   Destination:=Range("A1:A25"), 
   DataType:=xlDelimited, _
   TextQualifier:=xlDoubleQuote, _
   ConsecutiveDelimiter:=True, _
   Tab:=False, _
   Semicolon:=False, _
   Comma:=False, 
   Space:=True, _
   Other:=False, _
   FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
   DecimalSeparator:="." , _
   ThousandsSeparator:=",", _ 
   TrailingMinusNumbers:=True

相关问题