写一个分列的VBA代码
时间: 2023-12-01 18:28:32 浏览: 29
Sub splitInColumns()
Dim colCounter As Integer
colCounter = 1
'获取当前选定区域
Set selectedRange = Selection
'获取区域的行数
numRows = selectedRange.Rows.Count
'计算需要分列的列数
numColumns = Application.WorksheetFunction.RoundUp(selectedRange.Columns.Count / 2, 0)
'循环遍历每一列
For i = 1 To numColumns
'在当前工作表中创建新的列
Columns(selectedRange.Columns(1).Column + colCounter).Insert shift:=xlToRight
'复制数据到新列
selectedRange.Columns(1).Copy Destination:=Columns(selectedRange.Columns(1).Column + colCounter)
'删除原始数据
selectedRange.Columns(1).Delete shift:=xlToLeft
'增加列计数器
colCounter = colCounter + 1
Next i
'释放对象
Set selectedRange = Nothing
End Sub