求excel 制作保存按钮代码 在固定单元格(A1)输入 点击保存按钮 依次保存到另一列(B列)

假如在固定A1单元格输入数据点击保存自动保存到B1,再次在A1输入数据点击保存自动保存到B2依次类推每次点击保存按钮都将A1数据保存到B列的非空单元格下一格(想自己做个简... 假如在固定A1单元格输入数据 点击保存 自动保存到B1,再次在A1输入数据 点击保存 自动保存到B2 依次类推 每次点击保存按钮都将A1数据保存到B列的非空单元格下一格 (想自己做个简单的进销存) 展开
 我来答
cxjx11329
2014-04-30 · TA获得超过3050个赞
知道小有建树答主
回答量:1352
采纳率:0%
帮助的人:457万
展开全部
打开VBE编辑器,插入一个模块,粘贴以下代码,在表格中添加一个窗体命令按钮控件,指定宏为保存。至于"sheet1"这个表格名称,你可以把双引号之间的sheet1替换为自己的实际表格名称。
Sub 保存()
Dim x As Integer
x = Sheets("sheet1").Range("b65536").End(xlUp).Row
Sheets("sheet1").Range("B" & x + 1) = Sheets("sheet1").Range("A1")
End Sub
弗尔布雷斯
2014-04-30 · TA获得超过2763个赞
知道大有可为答主
回答量:2317
采纳率:66%
帮助的人:1032万
展开全部

代码如下,附件中是写好宏的文件供参考:

Sub save()
Dim r As Integer    '定义变量r为整数型变量,用于获取B列最后一个非空单元格行数
r = [b65536].End(xlUp).Row      '获取B列最后一个非空单元格的行数(如果是03以上版本的Excel,将[b65536]改成[b1048576])
If r = 1 And [b1] = "" Then     '如果B列没有任何数据则从B1开始填充A1中数据
    [b1] = [a1]
    Exit Sub
End If
Cells(r + 1, 2) = [a1]      '如果B列中存在数据,则从非空单元格的下一单元格中填入A1中数据
End Sub

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ExcelOffice
2014-04-30 · TA获得超过570个赞
知道小有建树答主
回答量:1583
采纳率:0%
帮助的人:743万
展开全部
sub 扣号1722187970()
i=range("b65536").end(xlup).row
range("b" &i )=range("a1")
end sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
excel表格库
2014-04-30 · TA获得超过248个赞
知道小有建树答主
回答量:423
采纳率:0%
帮助的人:109万
展开全部
可以自己写一个宏代码
追问
谢谢  自己能写就不用问啦
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式