excel怎么批量复制不同行
我们工作中常用的复制粘贴比较快的都会用ctrl+C和ctrl+V两组快捷键,可是当复制的多个内容要不定时的使用,再反复的复制粘贴就有些麻烦了,有没有好的方法呢?6excel如何一次打印工作簿中所有工作表4excel如何计算指定月份前后日期或如何加减月份0Excel如何选中或编辑有超链接的单元格<br>打开工作表,输入数据。<br>点击剪贴板右边的斜箭头。<br>调出剪贴板。选中一个数据,点击复制。<br>我们的111数据就到了剪贴板中了。<br>一次把所有数据都复制一下。<br>选中要粘贴的单元格,点击剪贴板中的数据。<br>看333在剪贴板中间也可以粘贴出来。<br>我们不按顺序点击一遍,看都粘贴出来了。<br>
"1、需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。如图所示。<br><br><img src=""https://pic.wenwen.soso.com/pqpic/wenwenpic/0/20190821123321-290767482_png_385_349_143337/0""/><br><br>2、打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。如图所示。<br><br><img src=""https://pic.wenwen.soso.com/pqpic/wenwenpic/0/20190821123322-803450126_png_455_558_162837/0""/><br><br>3、然后把下面这些宏计算的代码复制进去,然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”,代码如下,如图所示:<br><br>Sub 合并当前目录下所有工作簿的全部工作表()<br><br>Dim MyPath, MyName, AWbName<br><br>Dim Wb As Workbook, WbN As String<br><br>Dim G As Long<br><br>Dim Num As Long<br><br>Dim BOX As String<br><br>Application.ScreenUpdating = False<br><br>MyPath = ActiveWorkbook.Path<br><br>MyName = Dir(MyPath & ""\"" & ""*.xls"")<br><br>AWbName = ActiveWorkbook.Name<br><br>Num = 0<br><br>Do While MyName &lt;&gt; """"<br><br>If MyName &lt;&gt; AWbName Then<br><br>Set Wb = Workbooks.Open(MyPath & ""\"" & MyName)<br><br>Num = Num + 1<br><br>With Workbooks(1).ActiveSheet<br><br>.Cells(.Range(""B65536"").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)<br><br>For G = 1 To Sheets.Count<br><br>Wb.Sheets(G).UsedRange.Copy .Cells(.Range(""B65536"").End(xlUp).Row + 1, 1)<br><br>Next<br><br>WbN = WbN & Chr(13) & Wb.Name<br><br>Wb.Close False<br><br>End With<br><br>End If<br><br>MyName = Dir<br><br>Loop<br><br>Range(""B1"").Select<br><br>Application.ScreenUpdating = True<br><br>MsgBox ""共合并了"" & Num & ""个工作薄下的全部工作表。如下:"" & Chr(13) & WbN, vbInformation, ""提示""<br><br>End Sub<br><br><img src=""https://pic.wenwen.soso.com/pqpic/wenwenpic/0/20190821123322-896129255_png_489_236_123979/0""/><br><br>4、运行之后,等待10秒针左右,等运行完毕,就是合并完成之后,会有提示,点确定就可以了。查看合并后的数据,有5000多行,就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。<br><br><img src=""https://pic.wenwen.soso.com/pqpic/wenwenpic/0/20190821123323-1077288171_png_437_325_172030/0""/>"