excel工作表如何将表1的部份内容通过VBA控件按钮“执行”复制到表2指定的单元格？要VBA详细代码。

表1 B5:B9复制到表2 B4:B8,表1C5:C9复制到表2C4:C8,F5:F9复制到D4到D8,E2复制到E4,E3复制到F4,G3复制到H4.

第1个回答 2011-07-19

单击控件工具箱，点按钮，在表1中拖出一个按钮控件。在按钮上点右键，点查看代码：
Private Sub CommandButton1_Click()
Sheets("表1").Range("B5:B9,C5:C9").Select
Selection.Copy
Sheets("表2"). Range("B4:B8,C4:C8").Select
ActiveSheet.Paste
Sheets("表1").Range("F5:F9,D4,E2,E3.G3").Select
Selection.Copy
Sheets("表1").Range("D4:D8,D4,E4,F4.H4").Select
ActiveSheet.Paste
End Sub

第2个回答 2011-07-19

Sub 复制()
Sheets("sheet2").Range("B4:C8") = Sheets("sheet1").Range("B5:C9").Value
Sheets("sheet2").Range("d4:d8") = Sheets("sheet1").Range("f5:f9").Value
Sheets("sheet2").Range("e4") = Sheets("sheet1").Range("e2").Value
Sheets("sheet2").Range("f4") = Sheets("sheet1").Range("e3").Value
Sheets("sheet2").Range("h4") = Sheets("sheet1").Range("g3").Value
End Sub本回答被提问者采纳

第3个回答 2017-12-14

只是简单的复制粘贴
自己录制个宏操作一遍就有代码了

相似回答

如何使用VBA 把第一个excel文件中的某一个单元复制到另一个excel文件中...答：Sheets("Sheet1").Select 金币20到手 = InputBox("亲爱的老板~，当前是'工具'表，要放到哪个单元格呀？", "干活的搬运工")Range(金币20到手).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False MsgBox "谢谢老板", vbOKOnly, "下班的搬...

excel中如何将用vba把表一的信息录入表二你学会了吗答：1. 打开 Excel，然后打开表一和表二。2. 在表二中创建与表一相同的列名。3. 启用 VBA 编辑器，为代码创建一个新的模块。4. 在代码模块中，使用“for”或“while”循环遍历表一所有行。5. 对于每个行，将特定数据复制到表二中创建的相应列中。6. 编写完成后，执行 VBA 代码即可将表一的信息录...

VBA复制“表1” H5:V23区域有数据的单元格粘贴到“表2” AA5单元格,只...答：以下是一个简单的VBA代码示例，可以将“表1” H5:V23区域的数值复制到“表2” AA5单元格，仅保留数值而不复制公式。您可以在VBA编辑器中打开要处理的工作簿，选择“插入” -> “模块”，然后将下面的代码复制到模块中，保存并运行即可。Sub CopyValues()Dim sourceRange As Range Dim destRange As...

excel 如何通过vba将sheet1中的操作写入到sheet2中答：要通过VBA把Sheet1工作表中的数据写入Sheet2工作表中，可以采用如下方法：1、假如要把Sheet1工作表中A1单元格的数据写入Sheet2工作表的A1单元格中。2、可以执行以下语句：sub test() sheets("Sheet2").range("A1").Value=sheets("Sheet1").range("A1").Valueend sub3、语句解释：range("A1"...

想在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 lastline...

使用VBA, 如何将一个EXCEL文档中某个区域的内容自动复制到另一个EXCEL...答：Sub MyCopy()Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")End Sub 意思就是把工作簿1中工作表sheet1的A1：C50区域复制到当前工作簿sheet2工作表的A1区域（这个区域与前面的区域是一样的，只需要写左上角的单元格即可）...

excel如何制作一个vba按钮,点一下之后让sheet1里面的部份数据,自动保存...答：开发工具里面，插入——ActiveX控件，选中按钮，在Excel上拖拽2个按钮请点击输入图片描述右击按钮，查看代码，可以打开VBE界面（右击按钮，选择属性，里面可以改按钮的显示内容，Caption属性）Private Sub CommandButton1_Click()Sheet2.Range("A1").Value = Sheet1.Range("A10").Value '将表1中的...

EXCEL 怎么将符合条件的表1的数据,复制到表2,最好是VBA答：1.如下是一个Excel工作薄中的两张表，分别为Sheet1和Sheet2，下面分别以表1和表2来代替。要把表2中的语文成绩导入到表1中，但是从图中可以看出表1和表2名字并不一一对应。2.选中表1，选中C2单元格，即语文项目中第一个要录入的成绩。选择“插入—函数”命令。3.在“或选择类别”中选择“查找与...

通过VBA将一个EXCEL单元格的内容读取到另一个单元格?答：1，在vba中创建一个录制界面，设置输入按钮，设置输入按钮代码实现输入功能，双击输入按钮，输入代码进入代码窗口。2，将需要在表单中输入的文本框连接到指定的单元格，继续输入代码中显示的代码，并使用文本文本框的值链接到我们要输入的工作表单元格。3，设置输入单元格中显示的内容的文本格式，大小，字体...

大家正在搜

excel工作表合并成一个工作表 excel两个表格内容合并到一起 excel怎么复制一样的内容 excel怎么复制到另一个表格如何复制多个工作表 excel多表合并到一张表格将两个工作表内容合并 excel工作表 excel怎么合并多个工作表