Vba将O,P列数据合并整理到Q,R列
时间: 2023-10-08 09:08:55 浏览: 30
你可以使用以下VBA代码将O列和P列的数据合并到Q列和R列中:
```
Sub MergeColumns()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "O").End(xlUp).Row '获取数据最后一行的行号
For i = 1 To lastRow
Cells(i, "Q").Value = Cells(i, "O").Value & Cells(i, "P").Value '将O列和P列的数据合并到Q列
Cells(i, "R").Value = "" '先清空R列的数据
Next i
Range("Q1:R" & lastRow).Select '选中合并后的数据范围
Selection.TextToColumns Destination:=Range("Q1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False '将Q列的数据按照空格分隔到R列中
End Sub
```
这段代码会将O列和P列的数据合并到Q列中,并清空R列的数据。然后使用TextToColumns方法将Q列的数据按照空格分隔到R列中。请注意,这段代码假定单元格中的数据是以空格分隔的。如果数据是以其他分隔符分隔的,则需要相应地更改TextToColumns方法的参数。