excel宏命令教程

这个不用宏命令就可以解决。用分列功能就可以处理了。关于分列操作，有很多网友都会。可以参考。下面再操作一次。看清楚了。选定B列（这个会吧。）选择菜单上的数据 分列 分隔符号 其它，输入：/ 下一步，完成。看结果。两部分分开了，删掉后面的列就可以了。请点击输入图片描述 请点击输入图片描述 ...

你的数据表是sheet1,我下面的vba是把sheet1的500行复制到sheet2，然后删除sheet1的500行，再把sheet2另存在f:\111目录下，自动取名为1.xls，名字是逐步累加，我设置循环21此，也就是下面i>20那里控制，你自己改成需要的循环次数。最后还有一个重点，你下次问此类问题最好给高分，0分太没诚意，真...

大概思路：1.首先在宏设置中勾选“信任对VBA工程对象模型的访问”2.代码最好放到一个新建的工作簿中，用代码打开要删除宏的文件，比如名为A.xlsm。3.访问A.xlsm的VBProject对象，如果工程有密码，可以用Sendkey方法发送密码。4.遍历VBComponents集合，在每个子集合中查找“宏1”的代码，找到后删除它。...

Sub Macro2()'循环起始行 iStart = 5 '循环结束行 iEnd = 7 '将BOOK1中SHEET1 H5起每隔1行中的数据（H5,H6,H7...）粘贴到BOOK1中 SHEET1 B5起每隔12单元格中 For i = iStart To iEnd strText = Range("H"& i)j = 5 + 12 (i - 5)Range("B"& j)= strText Next 'H5起...

activesheet.cells(activesheet.usedrange.rows.count,1).value="XXX"

比如要在第三行前插入一行，可以用下面的代码：SUB 插入一行()Rows(3).Select Rows(3).Insert shift:=xlDown END SUB 运行该代码即可。

因为i=1 to 20 所以Len(i) <=2，永远不会Len(i) = 10 ，所以下边的语句永远得不到执行。简单修改如下：Sub 行高()Dim i As Integer '比如要在A1-A20 都要进行判断，来加行高 For i = 1 To 20 If Len(Cells(i,1) >= 10 Then '如果第i行第一个单元格的内容长度大于等于10，则...

Sub Macro1()Dim a As Integer a = Range("b65536").End(xlUp).Row + 1 Range(Cells(a, 2), Cells(a, 38)).Select ActiveWorkbook.Save End Sub

如果表头一样的话：可以用宏整个RANG=RANG就可以了 使用两个数据透视表 使用函数公式 如果表头不一样的话：1.使用VBA for each每个表，取表头填入汇总表。个人建议使用数据透视表。建议关注微信EXCEL公众号：BUTF_LOVE，每天学习一些EXCEL知识。

1、首先点击宏锁定的文件，此时文件呈现半透明状态，选择EXCEL选项。2、在弹出的对话框内选择信任中心。3、点击信任中心设置，进入下一个对话框。4、点击宏设置，而后选择启用所有宏。5、点击个人信心，在保存时删除个人隐私那里不要勾选，至此全部设置完成，即解除了宏命令设置的密码。6、就可以重新打开...