| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1271 人关注过本帖
标题:小弟初来,请各路高手指点赐教
只看楼主 加入收藏
徐海洋
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: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:7 
回复 楼主 徐海洋
完全不懂你在问什么啊

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



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

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