Excel批量转置——录制会循环的宏

效果预览

实现过程

1.开发工具中选择相对引用，选择开始单元格（假设从1所在的单元格开始），点击录制宏；
2.使用鼠标选择数字1-10，复制，再选择数字1所在的单元格右侧第二个单元格处，右键转置粘贴。然后选择数字11-20，复制，选择数字11所在的单元格右侧第二个单元格处，右键转置粘贴。然后选择21-30，重复前面的操作（多重复几次，便于改VBA代码时找规律）。
3.选择列D-M，开始-查找-定位条件-空值-删除。
4.点击停止录制宏，开发工具-宏-编辑，编辑VBA代码。
5.刚刚操作录制的代码如下：

Sub Y()
'
' Y 宏
'
' 快捷键: Ctrl+Shift+W
'ActiveCell.Range("A1:A10").SelectSelection.CopyActiveCell.Offset(0, 2).Range("A1").SelectSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=TrueActiveCell.Offset(10, -2).Range("A1:A10").SelectApplication.CutCopyMode = FalseSelection.CopyActiveCell.Offset(0, 2).Range("A1").SelectSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=TrueActiveCell.Offset(10, -2).Range("A1:A10").SelectApplication.CutCopyMode = FalseSelection.CopyActiveCell.Offset(0, 2).Range("A1").SelectSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=TrueActiveWindow.SmallScroll Down:=-54ActiveCell.Columns("A:J").EntireColumn.SelectSelection.SpecialCells(xlCellTypeBlanks).SelectApplication.CutCopyMode = FalseSelection.Delete Shift:=xlUp
End Sub

6.找出重复的代码，用循环命令改写，并保存，改写后的代码如下：

Sub Y()
'
' Y 宏
'
' 快捷键: Ctrl+Shift+W
'ActiveCell.Range("A1:A10").SelectSelection.CopyDo While ActiveCell <> ""ActiveCell.Offset(0, 2).Range("A1").SelectSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=TrueActiveCell.Offset(10, -2).Range("A1:A10").SelectApplication.CutCopyMode = FalseSelection.CopyLoopActiveCell.Columns("A:M").EntireColumn.SelectSelection.SpecialCells(xlCellTypeBlanks).SelectApplication.CutCopyMode = FalseSelection.Delete Shift:=xlUp
End Sub

Excel批量转置——录制会循环的宏相关推荐

EXCEL批量MD5加密，QNMB的宏
搜了好久,全都是添加一个MD5宏但是下载宏又要收费现在推荐一个网站:http://tools.bugscaner.com/stringtomd5/ 直接把excel要加密的列复制粘贴进去, ...
Excel批量取消超链接
Excel批量取消超链接 Excel中如果带有超链接,最简单直接的办法就是选中单元格,单击右键选择"取消超链接",但这样只能一个单元格一个单元格地操作,如果数量巨大,成百上千个单元 ...
EXCEL VBA 之录制宏
宏的录制方法.先录制一个设置格式的宏,设置小于60分的不及格成绩用红色显示.打开学生成绩表excel文件. 2 如何开始录制?单击工具---宏---录制宏,弹出小窗口. 3 宏的名字命名为" ...
Excel VBA 002 录制宏
Excel VBA 002 录制宏一．开始录制二．设置宏名,快捷键,保存位置可以将录制的宏保存到三个不同的位置. ·个人宏工作簿:每次使用Excel时都可以使用"个人宏工作簿" ...
excel宏转txt替换强制换行符_三个步骤学会用EXCEL批量导入anki题库
Anki真的是个好用到不想推荐给朋友的软件,本人最近准备刷个新题库,找了一上午找不到原来教我EXCEL导入anki的网页,为了防止我自己过段时间又忘了应该怎么导入,我写了这个教程,写都写了,就顺手发出 ...
excel 按数据拆分 xlam_利用EXCEL提升效率之五分钟缩短至五秒批量合并EXCEL批量转换PDF批量上传报关单随附单据___EXCELVBA...
进出口报关中,需要对各种发票,装箱,合同等进行重复的操作: 打印---盖章---扫描---重命名等操作. 之后将上述文件上传至单一窗口的报关单随附单据, 报关行通常需要安排一人专门进行上述操作, 每套 ...
excel批量更改超链接_excel超链接应用：快速生成目录的几个方法-上
编按:哈喽,大家好!在平时工作中,为了能快速打开需要的工作表,我们通常会设置一个目录.目录的设置方法有很多种,但大多数人使用的方法还是基本的手动插入超链接的操作.虽然这个方法也行,但是将大大降低你的工 ...
利用Excel批量高速发送电子邮件
利用Excel批量高速发送电子邮件,分两步: 1. 准备待发送的数据: a.) 打开Excel,新建Book1.xlsx b.) 填入以下的内容, 第一列:接收人,第二列:邮件标题,第三列:正文,第四 ...
EXCEL中转置粘贴成值功能如何设置成热键或鼠标手势？
先说为何要转置粘贴值:转置粘贴就是行列方向转换,粘贴值就是避免公式因转置位置变换导致结果错误. 手动操作步骤一两个数据还可以,但是经常这样操作的朋友,要多次操作的话,要这么点肯定很烦躁. VBA-- ...

Excel批量转置——录制会循环的宏

效果预览

实现过程

Excel批量转置——录制会循环的宏相关推荐

最新文章

热门文章