删行区域

ddz79101

老师！有个表分2部分，希望删左半部分的行时，数据上移，但所删行和上移区域，簿影响原表右部分的顺序。请老师帮忙指点

Qs18

Sub test()

    Range("A36:D40").Delete shift:=xlUp

For i = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If Range("c" & i).Interior.Color = RGB(0, 255, 0) Or Range("c" & i).Interior.Color = RGB(255, 204, 153) Then
        Range("a" & i & ":d" & i).Delete shift:=xlUp
    End If
      
Next

End Sub

ddz79101

有老师帮忙指点吗

ddz79101

Qs18 发表于 2024-5-25 12:58
Sub test()

    Range("A36:D40").Delete shift:=xlUp

谢谢老师！可以运行。只是可能我的表述有点问题，表中的涂色，只是我为说明需要删哪里，我希望代码能代替我这步骤，寻找这涂色区域，再删。谢谢老师，可以合二为一吗

ykcbf1100

部分删除。。。

ykcbf1100

部分删除。。。

1. Sub 删除行()  '//2024.5.25
   
2.     With Sheets("Sheet1")
   
3.         r = 33
   
4.         For i = r To 3 Step -1
   
5.             If .Cells(i, 1) = Empty Then .Cells(i, 1).Resize(1, 4).Delete Shift:=xlUp
   
6.             If .Cells(i, 1) <> Empty And .Cells(i, 2) = Empty Then .Cells(i, 1).Resize(1, 4).Delete Shift:=xlUp
   
7.         Next
   
8.     End With
   
9. End Sub
   

复制代码

ddz79101

ykcbf1100 发表于 2024-5-25 19:48
部分删除。。。

谢谢老师！运行后发现多删了。二、投资活动产生的现金流量：三、筹资活动产生的现金流量：此为被删了。

ykcbf1100

ddz79101 发表于 2024-5-25 21:05
谢谢老师！运行后发现多删了。二、投资活动产生的现金流量：三、筹资活动产生的现金流量：此为被删了。

不会吧。我运行后和你的样表对比过的，一样的。r值变化后，你要及时更改一下。

ddz79101

ykcbf1100 发表于 2024-5-25 21:08
不会吧。我运行后和你的样表对比过的，一样的。r值变化后，你要及时更改一下。

老师，我是将你的运行结果的表恢复原状后再运行你的代码的。你再帮我看看。另外，我想用arr的方式将左半部分（目前实际操作的部分），另存表。感觉无重入手了。你可以再帮我一下吗

ykcbf1100

ddz79101 发表于 2024-5-25 21:15
老师，我是将你的运行结果的表恢复原状后再运行你的代码的。你再帮我看看。另外，我想用arr的方式将左半 ...

不好意思，原代码确有点问题。

已改好。。。