关闭

Excel VBA笔记

675人阅读 评论(0) 收藏 举报

-- 删除单元格
Range("B2").Select  
Selection.Delete Shift:=xlToLeft

-- 删除行、列
Sheet1.Rows(3).Delete
Sheet1.Columns(3).Delete

-- 删除空行
Dim   irow   As   Integer,  icol   As   Integer  
Dim   iColCount   As   Integer  
Dim   bRowIsEmpty   As   Boolean  
irow   =   1  
iColCount   =   255  
'(需要判断整行是否为空?)假设有效列为iColCount  
bRowIsEmpty   =   True  
For   icol   =   1   To   iColCount  
        If   Len(Cells(irow,   icol).Value)   <>   0   Then  
                bRowIsEmpty   =   False  
                Exit   For  
        End   If  
Next  
'删除行是这样的  
If   bRowIsEmpty   Then   Cells(irow,   irow).EntireRow.Delete 
----------------------------------------------------------------------
Sub DelNullRow
    Dim b,c As Integer
    Dim a As Range
    For b=1 To Range(“b65536”).End(xlUp).Row
        k=0:Set a=Cells(b,1)
       
        '测试该行的连续4个列的值是否为空(用户可按要求指定该数字)
        For c=1 To4
            If Cells(b,c)=”” Then k=k+1
        Next c
       
        '如果该行连续4个单元格的为空,则删除该行
        If k=4 Then
            a.EntireRow.delete shift:=xlUp
        End If
    Next b
End Sub

-- 最大非空单元格行号、列号
ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count'行數  
ActiveWorkbook.ActiveSheet.UsedRange.Columns.Count'列數

Worksheets("Sheet1").Range("A65536").End(xlUp).row

Worksheets("Sheet1").Range("IV2").End(xlToLeft).Column


 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:22894次
    • 积分:313
    • 等级:
    • 排名:千里之外
    • 原创:7篇
    • 转载:4篇
    • 译文:1篇
    • 评论:3条
    文章分类