方方格子
一个专注Excel学习交流、求助定制的网站
`
  格子社区
阅： 411 | 回： 2
修改代码 全部 , 编号:05983 快速回复
Chenwenke
发表于2024/11/23 15:44:42 楼主 
头像 等级:初学者
积分:0
财富值:2.0
身份:普通用户

var a=Worksheets.Item("Sheet2").Cells(Rows.Count,1).End(3).Row;

Worksheets.Item("Sheet1").Range("b2，c2").Copy(Worksheets.Item("Sheet2").Cells(a+1,1));

就是Cells(a+1,1));只能固定在a列，不能修改       需要修改成b列或c列自动向下添加数据

经过修改 Cells(a+1,"b"))     在表1 录入数据     表2 数据录入可以成b列或c列显示没有问题       问题：数据连续输入 表2又不能自动向下添加数据
我的个性签名
信步
发表于 2024/11/25 8:40:17   
头像 等级:传说级人物
积分:2620
财富值:6
身份:系统管理员
vba代码定制 http://www.ffcell.com/Wo/index.aspx
方方格子安装教程http://www.ffcell.com/WenKu/article.aspx?id=376

快速回复

目前不允许游客发表，请 登录 注册 后再发贴。