|
楼主 |
发表于 2018-7-26 18:57
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
谢谢回复,通过代码找到问题。单元格设置太大。
$1:$381
$A$1:$GR$50002
$A$1:$CH$257
通过下丰代码,问题得到解决。
- Private Sub DEL()
- Dim Rng As Range, oRng As Range
- Dim Sht As Worksheet
- Dim Row, Col, Col1
-
- For ii = 1 To Application.Sheets.Count
- Set Sht = Application.Sheets(ii)
- Set Rng = Sht.UsedRange
-
- With Sht
- Row = .Range("A65536").End(3).Row ' .Rows.Count
- For ii1 = 1 To Row
- Set oRng = .Cells(ii1, 200)
-
- Col1 = oRng.End(xlToLeft).Column
- If ii1 - 1 Then
- Col = Col1
- End If
- If Col < Col1 Then
- Col = Col1
- End If
- Next ii1
- ''
- Set oRng = .Range(.Cells(1, Col + 1), .Cells(65536, 256))
- 'Set oRng = .Range(.Cells(1, Col + 1), .Cells(Rng.Rows.Count, 255))
- Debug.Print oRng.Address
- oRng.Delete
- ''
- Set oRng = .Range("$" & Row + 1 & ":$65536")
- Debug.Print Rng.Address, oRng.Address
- oRng.Delete shift:=xlUp
- Debug.Print .Name, .UsedRange.Address
- End With
- 'Debug.Print Row, Rng.Address, Row, Col, Rng.End(xlToLeft).Column, Rng.End(xlToRight).Column
- '.Address
- Next ii
- End Sub
复制代码
|
|