问题描述
我是新手,有什么建议可以让这个宏变短吗?因为我需要把这个宏放到另一个宏中,它可以完成,但要长命令,因为它直到'BOM PART 44'。
1-我需要将行 (9:1000) "BOM PART 1" 复制到 (A9) "BOM PART 1 (2)" 2- 然后将“BOM PART 1 (2)”中的(BX7) 复制到同一张“BOM PART 1 (2)”范围(BX8:BX1000) 中。 3- 然后将 (BC8:BD8) "BOM PART 1 (2)" 复制到同一张表 "BOM PART 1 (2)" Range(BC9:BD1000)
这 3 个步骤将针对“BOM PART 1 到“BOM PART 44”重复进行
子测试()
'BOM 第 1 部分
Sheets("BOM PART 1").Rows("9:1000").copy (Sheets("BOM PART 1 (2)").Range("A9"))
Sheets("BOM PART 1 (2)").Range("BX7").copy (Sheets("BOM PART 1 (2)").Range("BX8:BX1000"))
Sheets("BOM PART 1 (2)").Range("BC8:BD8").copy (Sheets("BOM PART 1 (2)").Range("BC9:BD1000"))
'BOM 第 2 部分
Sheets("BOM PART 2").Rows("9:1000").copy (Sheets("BOM PART 2 (2)").Range("A9"))
Sheets("BOM PART 2 (2)").Range("BX7").copy (Sheets("BOM PART 2 (2)").Range("BX8:BX1000"))
Sheets("BOM PART 2 (2)").Range("BC8:BD8").copy (Sheets("BOM PART 2 (2)").Range("BC9:BD1000"))
'BOM 第 3 部分
Sheets("BOM PART 3").Rows("9:1000").copy (Sheets("BOM PART 3 (2)").Range("A9"))
Sheets("BOM PART 3 (2)").Range("BX7").copy (Sheets("BOM PART 3 (2)").Range("BX8:BX1000"))
Sheets("BOM PART 3 (2)").Range("BC8:BD8").copy (Sheets("BOM PART 3 (2)").Range("BC9:BD1000"))
结束子
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)