同一工作簿中的多个工作表合并到一个工作表的代码（通用代码）

lsc900707 · 发表于 2018-3-24 22:26

lrh788 发表于 2018-3-24 22:18
不用表1.表2.表3表达表名，用模糊表名表达

for each sht in sheets
if sht.name<>activesheet.name then

lrh788 · 发表于 2018-3-24 22:34

本帖最后由 lrh788 于 2018-3-24 22:51 编辑

好的！
Sub bz()
Dim sh As Worksheet, ar
Application.ScreenUpdating = False
With Sheet7
      .[a2:g500].ClearContents
      for each sht in sheets
      if sht.name<>activesheet.name then
         ar = sh.UsedRange.Offset(1, 0)
         .Range("A65536").End(3).Offset(1, 0).Resize(UBound(ar), UBound(ar, 2)) = ar
      Next
End With
Application.ScreenUpdating = True
End Sub
是这样吗？请大神们解释下代码函义

lrh788 · 发表于 2018-3-24 22:48

for each sht in sheets
if sht.name<>activesheet.name then

lrh788 · 发表于 2018-3-25 09:03

lsc900707 发表于 2018-3-24 22:26
for each sht in sheets
if sht.nameactivesheet.name then

此代码执行后，报next没有for

1249994139 · 发表于 2018-3-25 09:26

上面代码中在next上一名句加上end if

lsc900707 · 发表于 2018-3-25 09:45

lrh788 发表于 2018-3-25 09:03
此代码执行后，报next没有for

Sub bz()
   Dim sht As Worksheet, ar
   Application.ScreenUpdating = False
   [a2:g500].ClearContents
   for each sht in sheets
         if sht.name<>activesheet.name then
            ar = sht.UsedRange.Offset(1, 0)
            Range("A65536").End(3).Offset(1, 0).Resize(UBound(ar), UBound(ar, 2)) = ar
         end if
   Next
Application.ScreenUpdating = True
End Sub

lrh788 · 发表于 2018-3-25 09:46

1249994139 发表于 2018-3-25 09:26
上面代码中在next上一名句加上end if

加了End If后又报对象变量或with块变量未设置？

lsc900707 · 发表于 2018-3-25 10:10

lrh788 发表于 2018-3-25 09:03
此代码执行后，报next没有for

已修改代码，审核中，请稍候！

LEWZ · 发表于 2018-3-25 10:25

提示: 作者被禁止或删除内容自动屏蔽

lrh788 · 发表于 2018-3-25 10:27

本帖最后由 lrh788 于 2018-3-25 11:06 编辑

lsc900707 发表于 2018-3-25 09:45
Sub bz()
Dim sht As Worksheet, ar
Application.ScreenUpdating = False

合并表中有身份证号，用此代码合并后无法全显示，现需要保原表格式

		自动登录	找回密码
密码			免费注册

[求助] 同一工作簿中的多个工作表合并到一个工作表的代码（通用代码）

评分

LEWZ LEWZ 当前离线性别保密 UID 3672520 阅读权限 0 注册时间 2017-2-25 在线时间小时最后登录 1970-1-1 积分 116 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-3-25 10:25 来自手机 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报