Question

VB复制Excel单元格和粘贴 以下代码无法实现

For i = 0 To all_ZY_PP_PX.Length - 1

exapp.Range("C4:E4").Select()
exapp.Selection.Copy(exapp.Range("C18"))
exapp.ActiveSheet.Paste()

exsheet.Cells(jk_il, cjk_il) = all_ZY_PP_PX(i)
cjk_il += 3
Next

Answer 1

复制粘贴用以下语句:
exsheet.Range("C4:E4").Select
Selection.Copy
exsheet.Range("C18").Select
ActiveSheet.Paste

追问

类 Range 的 Select 方法无效

追答

我测试过了没有问题.
出错原因是因为sheet没有被激活。
下面的复制粘贴代码不用激活也可以

Sheet1.Range("D7:I9").Copy
Sheet1.Range("D15").PasteSpecial xlPasteAll

Answer 2

For i = 0 To all_ZY_PP_PX.Length - 1

exapp.Range("C4:E4").Select()
exapp.Selection.Copy(exapp.Range("C18"))
exapp.ActiveSheet.Paste()

exsheet.Cells(jk_il, cjk_il) = all_ZY_PP_PX(i)
cjk_il += 3
Next

追问

你这个和我的有区别么？