Question

EXCEL VBA提取数据

1。VBA提取图示表一的（C2：D100范围）最后显示的2行内容到另表二B3：C100
2。VBA提取表一的公式不能破坏

Answer 1

最后显示的2行内容到另表二B3：C100？？？
如果只是拷贝最后可见的两行：
Sheet1.Range("C" & [C100].End(xlUp).Row - 1 & ":D" & [C100].End(xlUp).Row).Copy
Sheet2.Range("B2").PasteSpecial Paste:=xlPasteValues

追问

Sheet1.Range("K" & [K2200].End(xlUp).Row - 1 & ":BT" & [K2200].End(xlUp).Row).Copy

追答

然后你就把copy的内容在某个单元格执行PasteSpecial方法咯，有问题吗？

追问

内容copy不了

Sheet1.Range("K" & [K2200].End(xlUp).Row - 1 & ":BT" & [K2200].End(xlUp).Row).Copy这句提取有问题

追答

点调试，把出错的语句截屏上来

追问

复制了表一,只复制了一行,但复制的也不是最后显示的二行

追答

能不能把你的文件传来腾讯号码谐音【一丝霸气三思柳闪闪舞】油箱看一下呢？因为那的确是两行数据啊

Answer 2

Sub xx()
x = [d100].End(xlUp).Row()
Range(Cells(x - 1, "C"), Cells(x, "D")).Copy
Sheet2.Select
ActiveSheet.Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

追问

Range(Cells(x - 1, "K"), Cells(x, "BT")).Copy这句提示
Sheet1没用命名是吗

追答

what？

追问

如何写才对呢?

Range(Cells(x - 1, "K"), Cells(x, "BT")).Copy这句提示

给个完整的

追答

你把代码放到sheet1里面就没问题了，如果不是放在sheet1，在前面加一句
sheet1.select

追问

在前面加一句sheet1.select

但是复制了公式,不是复制数据过来,所以显示如图

追答

你不是要求复制公式的吗

追问

是不破坏表一公式,将结果复制到表二就行了

追答

你把代码里的xlPasteFormulas改成xlPasteValues

Answer 3

Sheets(1).Range("C2:D100").Copy Sheets(2).[B3]