请教老师们，用vba写个代码，点击按钮，表一的A列的数据就复制到表二的A列

表一的A列若没有数据，表二的A列也没有什么。不要出现表一的A列没有数据，表二的A列就显示0 这种情况

推荐答案 2017-02-11

这个代码比较简单，放到按钮的点击事件里面就可以了。
Sheets("Sheet1").Select '选择sheet1工作表
Columns("A:A").Select '选择A列
Selection.Copy '执行复制操作
Sheets("Sheet2").Select
Columns("A:A").Select
ActiveSheet.Paste '执行粘贴操作

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/U9sUp2xnU2snDsisDsv.html

相似回答

VBA 学习,如何把表1中A列的数据(不包含第1行)复制到表2中A列(不包含...答：表2名为s2.sub test worksheets("s1").select range("A2:A" & activesheet.usedrange.rows.count).copy worksheets("s2").select range("a2").select activesheet.pasteend sub

想在excel里用VBA,点击按钮复制一行数据到另外一行,可是不知道该怎么写...答：代码如下：Private Sub ComboBox1_Change()Sheet2.Cells(1, 1).Value = ComboBox1.ValueDim i As Integeri = 2Do While Not i > 100000If Sheet3.Cells(i, 1) = "" ThenSheet3.Cells(i, 1).Value = Sheet2.Cells(1, 1).ValueSheet3.Cells(i, 2).Value = Now()GoTo lastlineEl...

根据Sheet1表的值,自动生成到Sheet2中对应的列中,用excel的VBA编程,代 ...答：CurRng.End(xlDown).Offset(-1, 0)) End If For i = 1 To 2 If i = 1 Then Set ExtRng = ExtRng.Offset(0, 4) Else Set ExtRng = ExtRng.Offset(0,

...vba代码:把表格一的a列数据同时复制到表格二,表格三,表格四的a列...答：按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码打入去，如果粘贴进去的，请你将多余的内容删除，按F5执行 Sub 宏1() Sheets("Sheet1").Select Columns("A:A").Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Sheets("Sheet...

...列数据自动复制到另一个工作表中对应的列中(用vba)答：如：两个工作表打开，点击表2的第二行A列，在公式栏中输入“=[Book1]Sheet1!$A$1”，回车之后，将光标放在该单元格右下角成黑十字时，向下向右推动，其他单元格公式就自动生成，然后就可以了。Book1是你第一个文件的名称，如果是同一文件下的不同表就不需要输入了希望对你有所帮助 ...

如何用vba实现在表2的A2中输入表1的A列中的品种代码,表1满足条件的行的...答：用函数就可以解决 B2的公式:=VLOOKUP($A2,表1!$A$2:$S$10,COLUMN())其他的可向右填充,然后向下填充 'VBA:请将下列加于表2的 Worksheet_Change事件中 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Then Dim x%, y y = 2 While Not IsNull(Sheets("表1")...

大家正在搜

vba点击命令按钮计数用vba设计的按键点击无反应 vba点击网页按钮ID找不到 vba点击网页按钮 vba添加按钮点击事件 vba设置按钮只能点一下通过vba代码添加按钮 VBA记录按钮点击次数 vba调用表单单选按钮