（已解决）工作本间数据复制对，为何工作表间数据复制不对？

jok22

这里有两个程序，第一个是将两个不同工作本间的数据进行复制，将当前单元格分别选中源工作本中需要复制的内容开始单元格（B1），目标工作本中选中需要复制到的开始单元格（B1），运行正确如一图；而第二个程序源工作本选中(B1)单元格，目标工作本中选中(B1)单元格，运行错误，如二图。
请问第二个程序如何修改才可以成为第一个的类型？谢谢！

工作本间复制

1. Sub workbook()
   
2.     Dim i&, j&, x&, y&, x1&, y1&, m&, n&, p&, q&, p1&, q1&, myName, myName1, a
   
3.     'Application.ScreenUpdating = False
   
4.       n = 10                                                               '循环次数
   
5.       Set myName = Windows("1.xlsx")                                       '源工作本
   
6.       Set myName1 = Windows("2.xlsx")                                      '目标工作本
   
7.       p = 1: q = 0                                            'p为源工作本间隔行数，q为源工作本间隔列数
   
8.       p1 = 1: q1 = 0                                          'p为目标工作本间隔行数，q为目标工作本间隔列数
   
9.       x = 1: y = 1
   
10.       x1 = 1: y1 = 1
    
11.       For i = 1 To n
    
12.       Set a = myName.Selection.Cells(x, y)
    
13.       myName1.Selection.Cells(x1, y1) = a.Value
    
14.       x = x + p: y = y + q
    
15.       x1 = x1 + p1: y1 = y1 + q1
    
16.       Next i
    
17. End Sub

复制代码

工作本间复制结果

工作表间复制

1. Sub sheet()
   
2. Dim i&, j&, x&, y&, x1&, y1&, m&, n&, p&, q&, p1&, q1&, myName, myName1, a
   
3. n = 1000 '循环次数
   
4. Set myName = ThisWorkbook.Sheets("Sheet1") '源工作表
   
5. Set myName1 = ThisWorkbook.Sheets("Sheet2") '目标工作表
   
6. p = 1: q = 0 'p为源工作表间隔行数，q为源工作表间隔列数
   
7. p1 = 1: q1 = 0 'p为目标工作表间隔行数，q为目标工作表间隔列数
   
8. x = 1: y = 1
   
9. x1 = 1: y1 = 1
   
10. For i = 1 To n
    
11. Set a = myName.Cells(x, y)
    
12. myName1.Cells(x1, y1) = a.Value
    
13. x = x + p: y = y + q
    
14. x1 = x1 + p1: y1 = y1 + q1
    
15. Next i
    
16. End Sub

复制代码

工作表间复制结果

示例.rar (21.39 KB, 下载次数: 0)

2018-6-26 14:29 上传

点击文件名下载附件

代码做了如下修改，达到了和第一个程序一样的效果。

1. Sub Macro1()
   
2. 
   
3.     Dim i&, j&, x&, y&, x1&, y1&, m&, n&, p&, q&, p1&, q1&, myName, myName1, a
   
4.     n = 10                                                  '循环次数
   
5.     Set myName = ThisWorkbook.Sheets("Sheet1")                                       '源工作本
   
6.     Set myName1 = ThisWorkbook.Sheets("Sheet2")                                      '目标工作本
   
7.     p = 1: q = 0                                            'p为源工作本间隔行数，q为源工作本间隔列数
   
8.     p1 = 1: q1 = 0                                          'p为目标工作本间隔行数，q为目标工作本间隔列数
   
9.     myName.Select
   
10.     x = ActiveCell.Row: y = ActiveCell.Column
    
11.     myName1.Select
    
12.     x1 = ActiveCell.Row: y1 = ActiveCell.Column
    
13.         For i = 1 To n
    
14.         Set a = myName.Cells(x, y)
    
15.         myName1.Cells(x1, y1) = a.Value
    
16.         x = x + p: y = y + q
    
17.         x1 = x1 + p1: y1 = y1 + q1
    
18.         Next i
    
19. End Sub
    

复制代码

chaohuahch

最好能说明一下，什么原因的错误，或者上传附件。看代码的话，代码没有问题。但是我看你描述问题，一直说的是B2单元格，但是当第一个循环，当x=1，y=1的情况下 cells（1,1）应该是相当于 A1 单元格的。

jok22

chaohuahch 发表于 2018-6-25 22:25
最好能说明一下，什么原因的错误，或者上传附件。看代码的话，代码没有问题。但是我看你描述问题，一直说的 ...

附件已上传，
你说的看理论x=1,y=1时Cells应该是A1单元格，但第一个程序运行时不一定，与选中的当前单元格有关系，但第二个程序就是固定的A1单元格。
目的从当前单元格拷贝内容到另一个工作本或工作表的当前单元格，第一个拷贝到工作本时对的，但第二个拷贝到工作表时不对，第一个Cells坐标的基准位置是当前单元格，第二个Cells坐标的基准位置是（A1）单元格。所以不解！如何将第二个Cells坐标的基准位置修改成当前单元格，谢谢