表格修改参数

随风飘扬去

原始代码Cells(a+1,1)); 效果是a列自动向下添加的        改成b或c自动向下添加的               改了这个代码 Cells(a+1,"b"))  但是不能自动向下添加的   怎么解决 改成b或c自动向下添加的

大灰狼1976

这要看你的变量a是怎么变化的，仅凭一句无法判断，最好有完整代码或者附件。

taller

请分享你的相关代码。Cells(a+1,"b")从语法角度讲是正确的

随风飘扬去

大灰狼1976 发表于 2024-11-11 11:35
这要看你的变量a是怎么变化的，仅凭一句无法判断，最好有完整代码或者附件。

var a=Worksheets.Item("数据库").Cells(Rows.Count,1).End(3).Row;
  Worksheets.Item("数据录入中心").Range("b8，c8，d8，e8，f8，g8，h8").Copy(Worksheets.Item("数据库").Cells(a+1,1));

随风飘扬去

var a=Worksheets.Item("数据库").Cells(Rows.Count,1).End(3).Row;
  Worksheets.Item("数据录入中心").Range("b8，c8，d8，e8，f8，g8，h8").Copy(Worksheets.Item("数据库").Cells(a+1,1));
改了这个代码 Cells(a+1,"b"))  但是不能自动向下添加的   怎么解决 改成b或c自动向下添加的

随风飘扬去

改成b或c自动向下添加。

随风飘扬去

大灰狼1976 发表于 2024-11-11 11:35
这要看你的变量a是怎么变化的，仅凭一句无法判断，最好有完整代码或者附件。

附件上传了

大灰狼1976

随风飘扬去 发表于 2024-11-11 11:49
附件上传了

我上班时间不便下载附件，你贴上代码，或者等其他人看看

ykcbf1100

没见代码，也不知道是按哪个表来操作的。应该说清楚一点。

随风飘扬去

大灰狼1976 发表于 2024-11-11 11:52
我上班时间不便下载附件，你贴上代码，或者等其他人看看

var a=Worksheets.Item("数据库").Cells(Rows.Count,1).End(3).Row;
Worksheets.Item("数据录入中心").Range("b2，c2，d2，e2，f2，g2，h2").Copy(Worksheets.Item("数据库").Cells(a+1,1));