佳礼资讯网

 找回密码
 注册

ADVERTISEMENT

查看: 973|回复: 8

请教Excel VBA大神

[复制链接]
发表于 12-8-2022 10:28 AM | 显示全部楼层 |阅读模式

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

1-1.PNG
回复

使用道具 举报


ADVERTISEMENT

发表于 17-8-2022 07:17 PM | 显示全部楼层
我尝试了一下(几乎忘了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行,不是很好,但是勉强还可以操作。

你自己尝试改良一下。
回复

使用道具 举报

发表于 17-8-2022 07:21 PM | 显示全部楼层
本帖最后由 褐眼睛 于 17-8-2022 07:31 PM 编辑


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

Sheet2: E1开始复制
2.png

Sheet1: C2开始粘贴
1.png


Screenshot 2022-08-17 193042.png
回复

使用道具 举报

发表于 18-8-2022 12:59 AM 来自手机 | 显示全部楼层
我现在才看懂你的题目,原来只是C2一格,哎呀,我做错答案了。
回复

使用道具 举报

 楼主| 发表于 18-8-2022 03:17 PM | 显示全部楼层
褐眼睛 发表于 18-8-2022 12:59 AM
我现在才看懂你的题目,原来只是C2一格,哎呀,我做错答案了。

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

使用道具 举报

发表于 18-8-2022 05:07 PM | 显示全部楼层
本帖最后由 yan13 于 18-8-2022 05:19 PM 编辑

C2要改成drop down?

回复

使用道具 举报

 楼主| 发表于 19-8-2022 09:03 AM | 显示全部楼层

不是,是要一个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可以这样做的吗?
回复

使用道具 举报

发表于 19-8-2022 10:34 PM | 显示全部楼层
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.
回复

使用道具 举报


ADVERTISEMENT

发表于 19-8-2022 10:38 PM | 显示全部楼层
感觉最好是一个button做完,就是直接利用 refresh and update的macro,把他放在新macro,不然有时会有问题
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

 

ADVERTISEMENT



ADVERTISEMENT




ADVERTISEMENT



ADVERTISEMENT


版权所有 © 1996-2022 Cari Internet Sdn Bhd (483575-W)|IPSERVERONE 提供云主机|广告刊登|私隐权|免控|投诉|联络|脸书|佳礼资讯网

GMT+8, 5-12-2022 09:40 AM , Processed in 0.098561 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表