| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 203 人关注过本帖
标题:小弟初来,请各路高手指点赐教
只看楼主 加入收藏
徐海洋
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2022-5-5
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
小弟初来,请各路高手指点赐教
初学,请各路高手指点赐教,

Private Sub CommandButton1_Click()
Dim r1 As Integer, r2 As Integer
r1 = Sheet2.Range("B65536").End(xlUp).Row + 1

Sheet2.Range("B" & r1).Value = Sheet1.Range("C2").Value
Sheet2.Range("J" & r1).Value = Sheet1.Range("C3").Value
Sheet2.Range("E" & r1).Value = Sheet1.Range("C4").Value
Sheet2.Range("F" & r1).Value = Sheet1.Range("C5").Value
Sheet2.Range("C" & r1).Value = Sheet1.Range("E2").Value
Sheet2.Range("D" & r1).Value = Sheet1.Range("E3").Value
Sheet2.Range("H" & r1).Value = Sheet1.Range("F4").Value
Sheet2.Range("L" & r1).Value = Sheet1.Range("F5").Value
Sheet2.Range("I" & r1).Value = Sheet1.Range("G2").Value
Sheet2.Range("K" & r1).Value = Sheet1.Range("G3").Value
Sheet2.Range("G" & r1).Value = Sheet1.Range("H2").Value
Sheet2.Range("M" & r1).Value = Sheet1.Range("H5").Value

'
MsgBox "保存完毕"

End Sub
这代码不能重复粘贴,怎样编一列不重复,其它列可重复



发不了图片和附件,请包含

[此贴子已经被作者于2022-5-8 22:05编辑过]

搜索更多相关主题的帖子: End Integer Value Sub 重复 
2022-05-08 12:17
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:405
帖 子:13562
专家分:52594
注 册:2012-10-18
收藏
得分:7 
回复 楼主 徐海洋
完全不懂你在问什么啊

DO IT YOURSELF !
2022-05-09 09:24
厨师王德榜
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:159
帖 子:821
专家分:3967
注 册:2013-2-16
收藏
得分:7 
这应该是 VBA问题,建议发 VBA版块.
2022-05-10 10:50
sssooosss
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:408
专家分:900
注 册:2019-8-27
收藏
得分:7 
共同学习
2022-05-12 19:23
快速回复:小弟初来,请各路高手指点赐教
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047493 second(s), 8 queries.
Copyright©2004-2022, BCCN.NET, All Rights Reserved