请帮忙使用宏自动复制粘贴

jingxin290

各位大神过年好!
可以麻烦帮忙看一下怎么样用宏快速的复制粘贴吗? 固定复制B4:X4的数粘贴到BB4:BX34, 以次类推3月和4月. 谢谢!

taller

也可以实现区域直接赋值

1. Sub GetVal()
   
2.     Set Sht = Sheets("Avail")
   
3.     lst = Sht.Cells(Rows.Count, 2).End(xlUp).Row
   
4.     With Sht.Range("b4:x" & lst)
   
5.         Sht.[bb4].Resize(.Rows.Count, .Columns.Count).Value = .Value
   
6.     End With
   
7. End Sub

复制代码

jingxin290

非常感谢两位百忙中抽空回复。 再次祝春节快乐！！！

jingxin290

两位大神, 请问可以只是复制框框里的数值吗? 因为35行/ 71行/107行的是公式, B4:X34 复制去BB4:BX34
B40:X70 复制去BB40:BX70; B76:X106 复制去BB76:BX106.