如何用代码实现：分别依次复制表1的Q到BN列的1到110单元格粘贴到表2的固定区域

cys888

请教如何用代码实现：分别依次复制表1的Q到BN列的1到110单元格粘贴到表2的固定区域

半百

每次复制都会覆盖之前的数据，最后只保留BN列复制过来的，有啥意义？

ykcbf1100

2楼的疑问同问？有啥意义呢？不如直接保留最后一次复制内容就好了。

cys888

半百 发表于 2024-7-24 11:39
每次复制都会覆盖之前的数据，最后只保留BN列复制过来的，有啥意义？

每复制一次过来后，还有另外一段代码根据复制来的数值和公式进行计算，我这里没发出来

cys888

ykcbf1100 发表于 2024-7-24 12:44
2楼的疑问同问？有啥意义呢？不如直接保留最后一次复制内容就好了。

每复制一次过来后，还有另外一段代码根据复制来的数值和公式进行计算，我这里没发出来

ykcbf1100

cys888 发表于 2024-7-24 15:20
每复制一次过来后，还有另外一段代码根据复制来的数值和公式进行计算，我这里没发出来

那就满足你一下。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.24
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("表1")
   
4.         r = .Cells(Rows.Count, "q").End(3).Row
   
5.         arr = .Range("a1:bn" & r)
   
6.         For j = 17 To UBound(arr, 2)
   
7.            Sheets("表2").[q1].Resize(r, 1) = Application.Index(arr, 0, j)
   
8.         Next
   
9.     End With
   
10.     Application.ScreenUpdating = True
    
11.     MsgBox "OK！"
    
12. End Sub
    

复制代码

cys888

ykcbf1100 发表于 2024-7-24 15:37
那就满足你一下。

可能我表达得不够清楚

第1步：复制表1(Q1:Q110)到表2的(Q1:Q110)；”选择性粘贴“选全部（包含表1单元格的公式），以下同
第2步：复制表1(R1:R110)到表2的(Q1:Q110)；
第3步：复制表1(S1:S110)到表2的(Q1:Q110)；
第4步：复制表1(T1:T110)到表2的(Q1:Q110)；
第5步：复制表1(U1:U110)到表2的(Q1:Q110)；
第6步：复制表1(V1:V110)到表2的(Q1:Q110)；
第7步：复制表1(W1:W110)到表2的(Q1:Q110)；
第8步：复制表1(X1:X110)到表2的(Q1:Q110)；
…
第50步：复制表1(BN1:BN110)到表2的(Q1:Q110)结束

ykcbf1100

cys888 发表于 2024-7-24 16:29
可能我表达得不够清楚

第1步：复制表1(Q1:Q110)到表2的(Q1:Q110)；”选择性粘贴“选全部（包含表1 ...

改一下吧，这样只能直接操作单元格了，速度慢很多。

ykcbf1100

单元格复制

1. Sub ykcbf()   '//2024.7.24  直接单元格复制
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("表1")
   
4.         r = .Cells(Rows.Count, "q").End(3).Row
   
5.         arr = .Range("a1:bn" & r)
   
6.         For j = 17 To UBound(arr, 2)
   
7.             Set Rng = .Cells(1, j).Resize(r)
   
8.             Rng.Copy Sheets("表2").[q1]
   
9.             Set Rng = Nothing
   
10.         Next
    
11.     End With
    
12.     Application.ScreenUpdating = True
    
13.     MsgBox "OK！"
    
14. End Sub

复制代码