求助感知区域（行数）的VBA代码

libinghua888

"本表需要把绿底部分的数据复制左边蓝底的区域中，且右边的行数是不固定的，
如何用VBA代码来完成该操作？请高手们
指点，万分感谢！"                                                                                                       




补充内容 (2023-2-25 20:25):
把格式（即边框线）也复制，或者添加的粘贴区域自动添加边框线和上下左右居中

陆离Lowry

SUB TEST()
    arr=[R1].CURRENTREGION
    [A1].RESIZE(UBOUND(ARR),UBOUND(ARR,2))=arr
END SUB

？？？

libinghua888

陆离Lowry 发表于 2023-2-15 16:59
SUB TEST()
    arr=[R1].CURRENTREGION
    [A1].RESIZE(UBOUND(ARR),UBOUND(ARR,2))=arr

您好！能否把格式（即边框线）也复制，或者添加粘贴区域自动添加边框线和上下左右居中？

陆离Lowry

libinghua888 发表于 2023-2-25 16:05
您好！能否把格式（即边框线）也复制，或者添加粘贴区域自动添加边框线和上下左右居中？

那直接[R1].CURRENTREGION.COPY [A1]呗

lq-1600

libinghua888 发表于 2023-2-25 16:05
您好！能否把格式（即边框线）也复制，或者添加粘贴区域自动添加边框线和上下左右居中？

你好，有2个问题：
1、绿色复制过去后，是否还需要蓝底？
2、在那列可以确定行数？如：T列，所有公式都指向它。

你提的问题（边框，居中）有2个解决方法，
1、条件格式，如绿色那边一样。（这是最容易的方法）
2、2楼的代码加入格式的代码。

libinghua888

lq-1600 发表于 2023-2-26 01:11
你好，有2个问题：
1、绿色复制过去后，是否还需要蓝底？
2、在那列可以确定行数？如：T列，所有公式都 ...

您好！感谢回复！麻烦看看有无更佳的的方法
1、绿色复制过去后，不需要蓝底？
2、在T列确定行数，所有公式都指向它。
3.  边框，居中可以如绿色那边一样、

lq-1600

陆离Lowry 发表于 2023-2-25 16:13
那直接[R1].CURRENTREGION.COPY [A1]呗

测试了一下，这是正解。

lq-1600

4楼的是正解，可以直接抄。

1. Sub 宏1()
   
2.     [R1].CurrentRegion.Copy [A1]
   
3. End Sub

复制代码