批量复制粘贴到指定单元格

ba3259878266

批量复制粘贴到指定单元格  谢谢各位老师帮忙

liulang0808

具体细节，楼主还可以根据自己的需求调整

ykcbf1100

录制改一下就好了。

ykcbf1100

录制一个改改就好了。

1. Sub 复制()
   
2.     With ActiveSheet
   
3.         r = .Cells(Rows.Count, 2).End(3).Row
   
4.         .Shapes.Range(Array("Picture 2")).Select
   
5.         Selection.Copy
   
6.         For i = 2 To r
   
7.             .Cells(i, 2).Select
   
8.             .Paste
   
9.         Next
   
10.         Range("E7").Select
    
11.     End With
    
12. End Sub
    
13. 
    

复制代码

ba3259878266

liulang0808 发表于 2024-4-28 13:28
具体细节，楼主还可以根据自己的需求调整

谢谢师傅 图片不在G1  是不定位置的

ba3259878266

liulang0808 发表于 2024-4-28 13:28
具体细节，楼主还可以根据自己的需求调整

谢谢师傅 对不起 缺少说明 图片不在单元格G1  是浮上文字上方的  现改为图片在D:\图片\AAA.png  复制粘贴到B2:B15里面  谢谢麻烦你了

liulang0808

ba3259878266 发表于 2024-4-28 15:00
谢谢师傅 对不起 缺少说明 图片不在单元格G1  是浮上文字上方的  现改为图片在D:\图片\AAA.png  复制粘贴 ...

https://club.excelhome.net/threa ... tml?_dsign=15791c27
可以参考下

ba3259878266

liulang0808 发表于 2024-4-28 15:18
https://club.excelhome.net/thread-1441877-1-1.html?_dsign=15791c27
可以参考下

谢谢师傅  本人是小白  不太懂  能否帮忙写一下  麻烦你了

liulang0808

ba3259878266 发表于 2024-4-28 15:28
谢谢师傅  本人是小白  不太懂  能否帮忙写一下  麻烦你了

里面就有雷同代码可以参考的

ba3259878266

liulang0808 发表于 2024-4-28 15:30
里面就有雷同代码可以参考的

师傅 太难了  能否帮忙写一下  急用