你好，我想问一下，怎么利用vba把Excel中所有的工作表复制到另一个工作表里面

Posted 2023-04-27

这个主要是用到For语句和Copy方法。
比如：把从第2个表开始的A1:A2单元格区域复制到第1张表的A列里面。
代码如下：
Sub ShCopy()
Dim i%, endrow%
\'定义变量
For i = 2 To Sheets.Count
\'变量i从2开始循环到整个工作簿的表的个数
endrow = Sheets(1).Range("A65536").End(xlUp).Row + 1
\'给变量endrow赋值第一张表A列的最后一个非空单元格行号加1
Sheets(i).Range("B1:B2").Copy Sheets(1).Range("A" & endrow)
\'复制第i张表的B1:B2单元格到第一张表A列的最后一个非空单元格行号加1
Next
End Sub

参考技术A 这个可以录制一个宏就可以看到代码了
sheets("").copy 参考技术B 直接写代码就可以了。有所得需有所付出，可私聊我

每日Excel分享（VBA）| 正则表达式在Excel VBA中的应用

感

谢

感谢每一个朋友的关注与支持，感谢所有的不离不弃，一路同行！

关

注

导读

前两天分享了一篇关于VBA与正则表达式的文章，里面写了如何利用VBA与正则表达式去除字符串中除中文之外的其他字符，只保留中文。

这两天有朋友问我如果要只保留数字或只保留字母该怎么办？所以今天村长再来补充一下其他正则表达式在VBA中的应用。

按ALT+F11弹出VBE窗口，然后新建模块，如下图：

只保留中文的代码如下：

Function ZW(i As String) As String

  Dim a As Object

  Set a = CreateObject("VBSCRIPT.REGEXP")

  a.Pattern = "[^\u4e00-\u9fa5]"

  a.IgnoreCase = True

  a.Global = True

  ZW = a.Replace(i, "")

  Set a = Nothing

End Function

只保留数字的代码如下：

Function SZ(i As String) As String

  Dim a As Object

  Set a = CreateObject("VBSCRIPT.REGEXP")

  a.Pattern = "[^0-9]"

  a.IgnoreCase = True

  a.Global = True

  SZ = a.Replace(i, "")

  Set a = Nothing

End Function

只保留字母的代码如下：

Function ZM(i As String) As String

  Dim a As Object

  Set a = CreateObject("VBSCRIPT.REGEXP")

  a.Pattern = "[^A-Z^a-z]"

  a.IgnoreCase = True

  a.Global = True

  ZM = a.Replace(i, "")

  Set a = Nothing

End Function

只保留数字和字母的代码如下：

Function SZZM(i As String) As String

  Dim a As Object

  Set a = CreateObject("VBSCRIPT.REGEXP")

  a.Pattern = "[^A-Z^a-z^0-9]"

  a.IgnoreCase = True

  a.Global = True

  SZZM = a.Replace(i, "")

  Set a = Nothing

End Function

保存完代码之后我们回到表格里面，在单元格输入我们刚才写的自定义函数，如下图：

坚持！坚持！再坚持！

致各位亲

未

完

待

续

每日一歌

羽泉《冷酷到底》

当前浏览器不支持播放音乐或语音，请在微信或其他浏览器中播放

点击下方“阅读原文”查看更多

↓↓↓