在我的excel文件的一列中,我有一个数据,如下所示。APRPT、APTRNA、APTRNC、APTRNI、APTRNR、APTRNT、CBRPT、GLRPT、INRPT、PORPT、POTRNR。
我想将上面的数据从一列拆分到具有相似数据的单个columns.There近500行。我们如何使用VBScript做到这一点呢?
我有选择excel文件和列的代码,但在那之后就卡住了!
Set objExcel = Wscript.CreateObject("Excel.Application")
Set objWorkbook =
objExcel.Workbooks.Open("C:\Users\tnookala\Documents\Book.xlsx")
objExcel.visible=True
rowCount=objExcel.ActiveWorkbook.Sheets(1).UsedRange.Rows.count
colCount=objExcel.ActiveWorkbook.Sheets(1).UsedRange.Columns.count
objExcel.ActiveSheet.Columns(4).Select
Do Until IsEmpty(ActiveCell)循环
发布于 2018-02-27 11:42:51
如果您确实需要使用VBA,则可以使用以下方法。这将选择列A,并从那里拆分。你可以调整为套装。
Range("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Comma:=Truehttps://stackoverflow.com/questions/48998842
复制相似问题