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,就清空
时间: 2023-12-10 09:02:55 浏览: 30
你可以像这样修改代码:
```
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,则将其背景色设为黄色。
Set da = Range("a1").CurrentRegion For Each bo In da.Rows If bo.Cells(2).Value = "羆璸" Then bo.Interior.ColorIndex = 6 '添加顏色 End If Next bo修改單元格中出現總計兩字就整行標淡青色
你可以尝试以下代码:
```
Set da = Range("a1").CurrentRegion
For Each bo In da.Rows
If InStr(1, bo.Cells(1, da.Columns.Count).Value, "總計") > 0 Then
bo.Interior.ColorIndex = 35 '添加淡青色
End If
Next bo
```
这段代码中,我们首先使用 `CurrentRegion` 获取了包含单元格 A1 的连续区域,然后遍历每一行来查找是否出现了“總計”这个词。在查找时,我们使用了 `InStr` 函数来判断单元格中是否包含该字符串,如果包含就将整行的背景色设置成淡青色。需要注意的是,这里我们将颜色索引设置成了 35,而不是 6,因为 6 所对应的颜色是红色,而不是淡青色。