VBA 求一段代码判断, COPY&PASTE代码

On_fire

VBA 求一段代码判断, COPY&PASTE代码

*

Sheet1源数据, PQ两列是要判断的资料

*

代码逻辑如下,

1.      上到下, 顺序判断出P列标黄的单元格

2.      COPY同行P及Q两列

3.      上到下,顺序贴在 V及W两列

*

恳请大神, 老师帮忙…谢谢!!!

On_fire

找了好久,

找到了相似的判断逻辑 ( 如截图 )

但不知道如何改这个判断条件?

gwjkkkkk

请楼主参考附件。。。

l云山

我也是一知半解，代码可能写的比较繁琐。相互学习。

1. Public Sub cp()
   
2. Dim rng As Range
   
3. Dim r, c, i As Integer
   
4. r = 0
   
5. c = 0
   
6. For Each rng In Range("P1:P65536")
   
7.     If rng.Interior.Color = 65535 Then
   
8.      r = rng.Row
   
9.      c = rng.Column
   
10.      Range(Cells(r, c), Cells(r, c + 1)).Select
    
11.      Selection.Copy
    
12.      i = Range("v65536").End(xlUp).Row + 1
    
13.      Range(Cells(i, 22), Cells(i, 23)).Select
    
14.      ActiveSheet.Paste
    
15.     End If
    
16. Next
    
17. End Sub

复制代码

l云山

我也是刚学的，写的比较复杂，但我认为你的需求还是比较简单的，可能会有更简便的写法。

nicleyuan

On_fire

gwjkkkkk 发表于 2022-12-24 13:05
请楼主参考附件。。。

谢谢老师…

On_fire

l云山 发表于 2022-12-24 13:33
我也是刚学的，写的比较复杂，但我认为你的需求还是比较简单的，可能会有更简便的写法。

您比我好多了, 谢谢…

On_fire

nicleyuan 发表于 2022-12-24 15:37

感谢老师…