w = Range("a1").CurrentRegion.Columns.Count - 1 e = Range("a1").CurrentRegion.Rows.Count For p = 2 To e For n = 3 To w If Cells(p, n) = 0 Then Cells(p, n).Delete End If Next Next將這段代碼修改為如果等於0，就清空

你可以像这样修改代码：

w = Range("a1").CurrentRegion.Columns.Count - 1
e = Range("a1").CurrentRegion.Rows.Count

For p = 2 To e
    For n = 3 To w
        If Cells(p, n) = 0 Then
            Cells(p, n).ClearContents ' 清空单元格内容
        End If
    Next
Next

这样，如果单元格的值等于0，就会清空它的内容。注意，使用`ClearContents` 方法只会清空单元格的内容，而不会删除单元格。如果你需要删除单元格，则需要使用`Delete` 方法。

相关问题

w = Range("a1").CurrentRegion.Columns.Count - 1 e = Range("a1").CurrentRegion.Rows.Count For p = 3 To e For n = 3 To w If Cells(p, n) < 0.9 Then Cells(p, n).Font.Color = 192 End If Next Next修改為大於0小於0.9的單元格黃色

您可以使用以下代码来将大于0小于0.9的单元格变成黄色：

w = Range("a1").CurrentRegion.Columns.Count - 1
e = Range("a1").CurrentRegion.Rows.Count

For p = 3 To e
    For n = 3 To w
        If Cells(p, n) > 0 And Cells(p, n) < 0.9 Then
            Cells(p, n).Interior.Color = vbYellow
        End If
    Next
Next

这段代码会遍历当前区域中的每个单元格，如果其值大于0且小于0.9，则将其背景色设为黄色。

Dim tblRange As Range Set tblRange = Range("A1").CurrentRegion ' 设置边框线 tblRange.Borders.LineStyle = xlContinuous ' 设置字体居中 tblRange.VerticalAlignment = xlCenter tblRange.HorizontalAlignment = xlCenter ' 添加蓝色表头字体 tblRange.Rows(1).Font.Color = RGB(0, 0, 255) ' 设置第4列格式为M/D tblRange.Columns(4).NumberFormat = "M/D"修改這個代碼中設置表頭單元格為藍色

你可以使用以下代码修改设置表头单元格为蓝色：

Sub SetTableStyle()
    ' 获取数据范围
    Dim tblRange As Range
    Set tblRange = Range("A1").CurrentRegion
    
    ' 设置边框线
    tblRange.Borders.LineStyle = xlContinuous
    
    ' 设置字体居中
    tblRange.VerticalAlignment = xlCenter
    tblRange.HorizontalAlignment = xlCenter
    
    ' 设置表头单元格为蓝色
    tblRange.Rows(1).Font.Color = RGB(0, 0, 255)
End Sub

这段代码与之前的代码类似，只是去掉了设置第4列格式为M/D的部分，改为将表头单元格设置为蓝色。你可以将其复制到你的 VBA 项目中并运行。