[已解决]复制工作表，导回到指定工作表，谢谢冥王老师。

lhj323323

老师：

我把想工作表[B]的全部内容导入到指定工作表中
指定工作表的表名由sheet1的[J18]单元格来确定
但是，我写的语句没有成功，请帮我看看，我错在哪里了，先谢谢了。

导回.rar (12.28 KB, 下载次数: 9)

2016-6-19 09:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

冥王

2016-6-19 10:04

代码12行，也就是倒数第6行

1. Sub 导回()
   
2.     Dim b, m, br
   
3.     'On Error Resume Next
   
4.     Application.ScreenUpdating = False
   
5.     b = Sheet1.[j18]    '工作表[说明]的[j18]单元格内的指定工作表名称
   
6.     With Sheet2
   
7.         m = .[a65536].End(3).Row
   
8.         br = .Range("A1:P" & m)
   
9.     End With
   
10.     '把上述内容br粘贴到
    
11.     With Sheets(b)    '工作表[说明]的[j18]单元格内的指定工作表名称
    
12.         .Cells.ClearContents
    
13.         .[a1].Resize(m, 16) = br
    
14.     End With
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "已导回"
    
17. End Sub

复制代码

跳转到最佳答案楼层

冥王

代码12行，也就是倒数第6行

1. Sub 导回()
   
2.     Dim b, m, br
   
3.     'On Error Resume Next
   
4.     Application.ScreenUpdating = False
   
5.     b = Sheet1.[j18]    '工作表[说明]的[j18]单元格内的指定工作表名称
   
6.     With Sheet2
   
7.         m = .[a65536].End(3).Row
   
8.         br = .Range("A1:P" & m)
   
9.     End With
   
10.     '把上述内容br粘贴到
    
11.     With Sheets(b)    '工作表[说明]的[j18]单元格内的指定工作表名称
    
12.         .Cells.ClearContents
    
13.         .[a1].Resize(m, 16) = br
    
14.     End With
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "已导回"
    
17. End Sub

复制代码

lhj323323

冥王 发表于 2016-6-19 10:04
代码12行，也就是倒数第6行

谢谢老师，我太大意了。