网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
12月26日漏签0天
excel吧 关注:281,994贴子:1,556,970
  • 看贴

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

  • 10回复贴,共1页
<<返回excel吧
>0< 加载中...

求助在录制的宏中加入变量

  • 只看楼主
  • 收藏

  • 回复
  • yangkang173
  • E知半解
    5
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
我录制了一个宏,作用是:: 把A2单元格的内容复制到B2
并且,已经把这个宏1,加载到一个按钮了(姑且把按钮叫做甲)
Sub 宏1()
Range("A2").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
我的A2单元格是可以手动输入不同值的
我希望点击按钮甲,,把A2内容复制到B2,
(当A2输入别的数后)再点按钮甲会把A2内容复制到B3
再点按钮甲会把A2内容复制到B4
再点按钮甲会把A2内容复制到B5
……
请问,我该怎么做?谢谢


  • 东门nn吸雪
  • E手遮天
    14
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
r = Cells(65535, "b").End(xlUp).row + 1
Range("a2").Copy Cells(r, "b")
A2复制到B列第1个空单元格


2025-12-26 05:15:47
广告
不感兴趣
开通SVIP免广告
  • weitao183
  • E览无余
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
都用VBA了,感觉使用单元格事件自动复制更方便,简单写了下,纯属娱乐。如果A1有更改,就自动复制。


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 10回复贴,共1页
<<返回excel吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示