请教Excel VBA大神

KTW92

请问有什么excel VBA code 可以自动 copy Sheet 2 的column E cell by cell paste 在Sheet 1 的 C2
click一个Button可以一次过的,现在的做法是manual一个一个key在C2 让后按 button

褐眼睛

我尝试了一下（几乎忘了VBA，不过我有参考https://docs.microsoft.com/en-us/office/vba/api/excel.range.copy ）


你打开Developer >> Visual Basic,然后在Sheet2粘贴下列代码：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Worksheets("Sheet2").Range("E1:E501").Copy _
   
3.     Destination:=Worksheets("Sheet1").Range("C2:C502")
   
4. End Sub
   

复制代码

它只是粗糙的复制Sheet2的E1:E501至Sheet1的C2502(500行），每次重复从第一行到第501行，不是很好，但是勉强还可以操作。

你自己尝试改良一下。

褐眼睛

每次输入一行，它就会自动复制500行，不是很好，或者你可以放一个按钮，要复制时才点击。

Sheet2: E1开始复制


Sheet1: C2开始粘贴

褐眼睛

我现在才看懂你的题目，原来只是C2一格，哎呀，我做错答案了。

KTW92

褐眼睛 发表于 18-8-2022 12:59 AM
我现在才看懂你的题目，原来只是C2一格，哎呀，我做错答案了。

不过还是非常感谢你的帮忙

yan13

C2要改成drop down?

KTW92

yan13 发表于 18-8-2022 05:07 PM
C2要改成drop down?

不是，是要一个VBA code 自动copy Sheet 2 的column E paste 在C2
打个比方，copy sheet 2 的 E1 paste 在  sheet1 的 C2，data refersh后自动 copy sheet 2 的 E2 paste 在  sheet1 的 C2 以此类推，但这些动作只要click 一个button 就能完成
不知道你有什么VBA code可以这样做的吗？

yan13

KTW92 发表于 19-8-2022 09:03 AM
不是，是要一个VBA code 自动copy Sheet 2 的column E paste 在C2
打个比方，copy sheet 2 的 E1 paste  ...

不太了解你的构思,不过可能可以试看这样.
button A : copy sheet 2 E1 to sheet 1 C2, call refresh and update macro. Loop till sheet 2 E row 没有value.

yan13

感觉最好是一个button做完,就是直接利用 refresh and update的macro,把他放在新macro,不然有时会有问题