不变应万变选末尾2表

ddz79101 · 发表于 2024-12-22 18:32

老师，有工作簿，表的数量一直都变化中，但工作簿中最后2表却需使用，能否在代码中加入一直选择后2表的代码。请老师指教。谢谢

ddz79101 · 发表于 2024-12-22 18:42

尝试使用 For k = Sheets.Count - 1 To Sheets.Count代替代码中的循环，也不行

gwjkkkkk · 发表于 2024-12-22 18:47

gwjkkkkk · 发表于 2024-12-22 18:47

Sub 删除合计行()
n = Worksheets.Count
For k = n - 1 To n 'Sheets.Count
      Sheets(k).Select
      Dim i
      For i = 10000 To 1 Step -1
         If Cells(i, 1) Like "合计" Then
         Rows(i & ":65536").Delete
         End If
      Next
Next
End Sub

ykcbf1100 · 发表于 2024-12-22 18:54

附件供参考。。。

ykcbf1100 · 发表于 2024-12-22 18:55

参与一下。。

Sub 删除合计行()
m = Sheets.Count
For k = m - 1 To Sheets.Count
With Sheets(k)
r = .Cells(Rows.Count, 1).End(3).Row
r1 = .Columns(1).Find("合计").Row
.Rows(r1 & ":" & r).Delete
End With
Next
End Sub

复制代码

quqiyuan · 发表于 2024-12-22 19:24

修改了下，仅供参考。。。

quqiyuan · 发表于 2024-12-22 19:25

代码如下。。。
Sub 删除合计行()
Dim i
Set wb = ThisWorkbook
With wb
      x = .Sheets.Count
      For k = x - 1 To x
         With .Sheets(k)
            For i = 10000 To 1 Step -1
                  If .Cells(i, 1) Like "合计" Then
                     .Rows(i & ":65536").Delete
                  End If
            Next
         End With
      Next
End With
End Sub

ddz79101 · 发表于 2024-12-22 19:26

gwjkkkkk 发表于 2024-12-22 18:47

谢谢老师！运行成功

ddz79101 · 发表于 2024-12-22 19:27

ykcbf1100 发表于 2024-12-22 18:54
附件供参考。。。

谢谢老师！运行成功！花后补

		自动登录	找回密码
密码			免费注册

[求助] 不变应万变选末尾2表

评分

评分

评分

评分

评分

最新热点 /1