如何在VBA中编程对EXCEL中数据进行分列

答案:2 悬赏:30

解决时间 2021-04-27 21:02

提问者网友：霸道又专情♚
2021-04-27 12:24

excel2013分列保存关了后下次再打开还得重新分列要不然重新粘贴的数据还是在一格里面

高手些看看我这个分列的宏怎么不对

Sub 分列()
'
' 分列宏
'

'
Sheets("数据").Select
Selection.ClearContents
Range("B3").Select
ActiveSheet.Paste
ActiveSheet.Paste
Sheets("统计").Select
End Sub
我感觉这个分列没起作用

请高手些帮我修改一下这个谢谢了

最佳答案

二级知识专家网友：我叫很个性
2021-04-27 12:51

Sub 分列()
Sheets("数据").Select'激活“数据”工作表
Selection.ClearContents'清除“数据”表中，当前选中区域的内容
Range("B3").Select'选中B3单元格
ActiveSheet.Paste'粘贴
ActiveSheet.Paste'粘贴
Sheets("统计").Select'激活“统计”工作表
End Sub你的代码里根本没有分列啊~

全部回答

1楼网友：萝莉姐姐鹿小北
2021-04-27 14:13

set xlapp = createobject("excel.application") '创建excel对象 set xlbook = xlapp.workbooks.open(app.path & "\文件名.xls") '打开已经存在的excel工件簿文件 xlapp.visible = true '设置excel对象可见（或不可见） set xlsheet = xlbook.worksheets("sheel1") '设置活动工作表，sheet1表示表名，可以使用字符型变量代替。 xlsheet.activate '激活工作表，让它处于前台活动中。 xlbook.runautomacros (xlautoopen) '运行自动开启宏macro1()，在excel中加入以下宏 'sub auto_open() '这是vba中的自动打开时运行的宏 ' 您要宏自动运行的程序，比如可以call其它的宏，这样vb在打开excel时，使用上面的语句就可以先运行这个宏 'end sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！