网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vba吧 关注：17,054贴子：66,650
  • 17回复贴，共1页

急求

Sub rngCopyValue_1()
Worksheets("Sheet2").Range("C17:C200").Copy Worksheets("Sheet1").Range("A1:A183")
Worksheets("Sheet2").Range("AA17:AA200").Copy Worksheets("Sheet1").Range("C1:C183")
Worksheets("Sheet2").Range("AJ17:AJ200").Copy Worksheets("Sheet1").Range("B1:B183")
End Sub
当sheet2的C 列出现“合计”时停止复制，退出程序，并且保存sheet1，清除sheet2的内容怎么写


while Worksheets("Sheet2").Range("C?")="合计"
wend
当发生什么时候，停止


2025-06-09 17:11:34
广告


先判断c列 合计 出现的单元格 然后确定复制的范围


sheet2.cells.clear


Sub 合计_Click()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "合计" Then
Rows(i).Delete
End If
Next
End Sub
这个有错误没，怎么没效果？


你看看你自己文件，叫你截图不截图，内容“合计：”，你却要=“合计”，这自然是不相等的，多个符号啊，你要不想精确对比，就用like "合计*"


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 17回复贴，共1页
分享到: