跨工作表提取数据

jackyava

将SHEET2里R2:T列的数据，提取到SHEET1的A26:C列
SHEET1里红色单元格部分均有公式，提取时不要受影响


附件
跨工作表提取数据.rar (2.22 KB, 下载次数: 27)

2017-3-2 21:12 上传

点击文件名下载附件

zax010

Sheet2.Range("R2:T" & Sheet2.[r65536].End(3).Row).Copy Sheet1.[a25]

jackyava

zax010 发表于 2017-3-2 21:38
Sheet2.Range("R2:T" & Sheet2.[r65536].End(3).Row).Copy Sheet1.[a25]

提取之前，能否先清空一下SHEE1里A26：c单元格的内容啊？

liulang0808

Sheets(2).Range(Sheets(2).[r2], Sheets(2).Cells(Rows.Count, "t").End(3)).Copy Sheets(1).[a26]

liulang0808

Sub a()
    Set rng = Sheets(2).Range(Sheets(2).[r2], Sheets(2).Cells(Rows.Count, "t").End(3))
    Sheets(1).[a26].Resize(rng.Rows.Count, 3).Value = rng.Value
End Sub

jackyava

liulang0808 发表于 2017-3-2 21:50
Sub a()
    Set rng = Sheets(2).Range(Sheets(2).[r2], Sheets(2).Cells(Rows.Count, "t").End(3))
    ...

能否提取之前，先清空一下目标单元格啊，否则提取新数据时，会残留上次提取的数据

忘得快

jackyava 发表于 2017-3-2 21:59
能否提取之前，先清空一下目标单元格啊，否则提取新数据时，会残留上次提取的数据

Sub a()
    Set Rng = Sheets(2).Range(Sheets(2).[r2], Sheets(2).Cells(Rows.Count, "t").End(3))
    Sheets(1).[a26:c65536] = ""
    Sheets(1).[a26].Resize(Rng.Rows.Count, 3).Value = Rng.Value
End Sub

liulang0808

jackyava 发表于 2017-3-2 21:59
能否提取之前，先清空一下目标单元格啊，否则提取新数据时，会残留上次提取的数据

建议楼主根据需求自己增加吧，
参照代码很简单的

lsc900707

EH中级了吧，简单的跨表复制应该不难呀。

jackyava

lsc900707 发表于 2017-3-3 08:25
EH中级了吧，简单的跨表复制应该不难呀。

跨表会，就是复制之前清空目标单元格不懂，现在学习了