excel 如何通过vba将sheet1中的操作写入到sheet2中

详细一点说：
就是我在sheet1里面按格式写好数据后，点击控件，sheet1表中指定区域就被加入sheet2的数据中，多次点击sheet1的控件，就在sheet2中顺序向下写入数据。
你可以将其中的关系想象中操作界面与数据库的关系。

请问如何实现？

推荐答案   2015-10-27

要通过VBA把Sheet1工作表中的数据写入Sheet2工作表中，可以采用如下方法：

1、假如要把Sheet1工作表中A1单元格的数据写入Sheet2工作表的A1单元格中。

2、可以执行以下语句：

sub test()
    sheets("Sheet2").range("A1").Value=sheets("Sheet1").range("A1").Value
end sub

3、语句解释：range("A1")代表A1单元格，.Value代表是单元格的值属性。

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

当前网址：https://88./zd/gSaVKVKSKBcKVMB1SS.html

其他回答

第1个回答  2014-05-22

sub a()
[a1].copy iif([a1]="",[a1],sheets(2).[a65536].end(3).offset(1))
end sub

将表1的数据插入到SHEET2的A列。

追问

sheet是有表头啊什么的，我只要指定区域插入即可。
表1的指定区域我已经转成列表了，名字也命名好了。

还有，sheet2原来有数据的，这样不会影响sheet2的数据吗？

追答

你的要求不明确，全是大范围，没一个准确的描述。。。我只有随便举例写了一个。

追问

哦，真不好意思。那我尽量写准确一点

现在就是想在表1中将数据行填充进去以后，通过插入的按钮将数据航增加到表2的最后。

如图，这是表1的数据，当我填好后，点击上面的按钮，这一部分数据就被复制到表2 中，点击一下，就在表2中向下复制一次，达到数据积累的效果。

另外，我表1和表2的格式是一样的，只需要在表2的最下方插入表1的这些数据行就行了

追答sub a()
range("b4:O"& [b65536].end(3).row).copy sheets(2).[B65536].end(3).offset(1)
end sub

 把中间那名代码，复制到你的控件代码中。

追问

我对VBA不懂，请问上述语句中，sheets(2) 是怎么定位的？

.....其他方面没有发现问题。

还有能否，点击之后弹出“数据已写入[XXX工作表]”

追答

sheets(2) ，代表第2个表，在工作表标签上，从左往右数。
如果是sheets("sheet2")，则特指工作表名为"sheet2”的表。
要加弹出消息框。可以加语句。
msgbox "数据已写入……"

引号内为你要弹出的内容。

本回答被提问者采纳

第2个回答  2015-09-30

具体要看你的是什么操作，如果是筛选，合并之类的操作，可以通过宏录制，直接录制出的操作代码，将代码中的sheet1改成sheet2！！！具体需要什么操作，你要说一下才能给你代码

excel如何制作一个vba按钮,点一下之后让sheet1里面的部份数据,自动保存...答：= Sheet1.Range("A10").Value '将表1中的某个值保存到表2的示例 End Sub Private Sub CommandButton2_Click()Sheet2.Range("A1").Value = "" '清空Sheet1指定单元格的示例 End Sub 根据示例修改代码 ...

如何用excel vba做到点击表1中一个数据,会自动跳转到表2中相同的数据...答：如图，右击Sheet7的工作表名，选“查看代码”，把下面代码复制到代码页即可。Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim R As Range On Error Resume Next If Target.Column = 6 And Target > 0 ...

如何用VBA将Excel中sheet1输入的数据自动添加到sheet2答：事件响应，判断target及相关数据完整then sheet2.cells(sheet2.usedrange.rows.count+1,1).copy sheet1.区域

Excel VBA 怎么将满足条件的非连续单元格写入另一个sheet中?在线等答：是的，楼主的代码在循环前确定了ws变量，无论找到多少个数据，都是写入到同样的位置，因此sheet2中只能写入一行，因此，应该在循环内部的Then后面设置ws值，另外，设置值的语句可以用ReSize和Array一句完成，这样效果更高，我...

请问excel宏vba,把sheet1中数据复制到sheet2中,由一行分成五行该怎么...答：Sub aa()Dim i, k x = UsedRange.Columns.Count For i = 2 To Range("a65536").End(xlUp).Row For k = 2 To x Step 4 n = Sheets(2).Range("a65536").End(xlUp).Row Cells(i, 1).Copy Sheets(2)...

如何使用vba在sheet1中勾选复选框后sheet2中的指定单元格填充?_百度...答：方法1：可以直接双击右下角绿色圆点位置，即可快速填充下拉公式。方法2：选中需添加公式的范围 ， 按Ctrl+D。操作方法：1、首先在excel表格中设置好公式，将鼠标光标点击到公式单元格右下角的绿色圆点位置。2、双击鼠标左键...

EXCEL用宏把Sheet1中数据复制到Sheet2中答：用万能的vba可以完成。第一步编制宏代码。代码如下：Sub test()Sheets("Sheet1").Select Cells.Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste End Sub 第二步：点击开发工具-宏-选择上述TEST宏，按...

...vba代码,把sheet1中满足条件的数据复制到sheet2中,答：set rng =union(rng, sheets("Sheet1").rows(i)) end if end if next if not(rng is nothing) then rng.copy sheets("Sheet2").[a2] else msgbox "未查询到符合条件数据" end if ...

...怎样实现在sheet1上填写的数据自动填写到sheet2的表格里固定位置_百 ...答：你是说填表吧，用VLOOKUP函数吧，不需要VBA.,此函数可根据你填入的查找内容返回你需要的数据。比如说，手工填入表二中一个字段 "姓名"，其他表格自动填入 年龄、身份证号码。。。

相关问题

EXCEL vba 将SHEET1中A1单元格中的值 提取到SHEET2 A1中的语句

如何将excel的sheet1和sheet2的内容的合并到sheet3，

根据Sheet1表的值，自动生成到Sheet2中对应的列中,用excel的VBA编程，代码如何写才能实现？

怎么向excel中指定的sheet写入数据

EXCEL VBA中怎么把另外一个EXCEL文件的sheet1完全（数据及格式）复制到当前sheet1

excel2013如何用vba实现把sheet1中竖的数据保存到sheet2中横

如图，用excel VBA设置一个按钮，将表格中指定内容提取到sheet2，内容改变点击按钮可以在此提取，谢谢

EXCEL VBA 怎样实现用Sheet2里的数据根据日期在sheet1里查找，并写入对应列