excel vba活用范例大辞典

您好！对于Excel VBA的活用范例，我可以给您提供一些常见的示例代码，供您参考和学习。以下是一些常见的Excel VBA范例：

1. 自动填充数据：使用VBA代码将数据自动填充到指定范围。

Sub AutoFillData()
    Range("A1").Value = 1
    Range("A1:A10").AutoFill Destination:=Range("A1:A10"), Type:=xlFillDefault
End Sub

2. 条件格式化：使用VBA代码根据条件对单元格进行格式化。

Sub ConditionalFormatting()
    Dim rng As Range
    Set rng = Range("A1:A10")
    
    For Each cell In rng
        If cell.Value > 5 Then
            cell.Interior.Color = RGB(255, 0, 0) '红色
        Else
            cell.Interior.Color = RGB(0, 255, 0) '绿色
        End If
    Next cell
End Sub

3. 删除空白行：使用VBA代码删除工作表中的空白行。

Sub DeleteBlankRows()
    Dim lastRow As Long, i As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行
    
    For i = lastRow To 1 Step -1 '逆序循环遍历
        If WorksheetFunction.CountA(Rows(i)) = 0 Then '判断是否为空白行
            Rows(i).Delete
        End If
    Next i
End Sub

这些范例代码仅供参考，您可以根据自己的需求进行修改和扩展。如果您有特定的需求或更多的问题，请随时提问！