VBA如何标示

On_fire

VBA如何标示

1.     源数据G列, 行数不固定

2.      单元格G2往下开始, 每2个单元格为一组

代码需求:

判断每一组内的两格的内容是否相同?

如果这一对单元格的内容不同, 这组要标黄

数据N多, 请老师帮忙...谢谢...

taller

参考代码

1. Sub demo()
   
2.     Dim drng As Range
   
3.     arr = Range([g1], Cells(Rows.Count, "G").End(xlUp)).Value
   
4.     For i = 2 To UBound(arr) Step 2
   
5.         If arr(i, 1) - arr(i + 1, 1) <> 0 Then
   
6.             If drng Is Nothing Then
   
7.                 Set drng = Cells(i, "G").Resize(2, 1)
   
8.             Else
   
9.                 Set drng = Union(drng, Cells(i, "G").Resize(2, 1))
   
10.             End If
    
11.         End If
    
12.     Next
    
13.     If Not drng Is Nothing Then drng.Interior.Color = vbYellow
    
14. End Sub
    

复制代码

taller

示例文件
ReMark.7z (22.89 KB, 下载次数: 4)

2020-3-15 14:45 上传

点击文件名下载附件

scbzyj

Sub demo()
    Dim drng As Range
    arr = Range([g1], Cells(Rows.Count, "G").End(xlUp)).Value
    MsgBox Range([g1], Cells(Rows.Count, "G").End(xlUp)).Address
    For i = 2 To UBound(arr) Step 2
        If arr(i, 1) - arr(i + 1, 1) <> 0 Then
            Cells(i, "G").Resize(2, 1).Interior.Color = vbYellow
        End If
    Next
End Sub

On_fire

taller 发表于 2020-3-15 14:45
示例文件

谢谢版主

您的示例结果正确..

X。P

学习了，，

taller

scbzyj 发表于 2020-3-15 15:03
Sub demo()
    Dim drng As Range
    arr = Range([g1], Cells(Rows.Count, "G").End(xlUp)).Value

代码行数变少，但是运行效率降低了

renkangjizhen

sub 填色()
dim i&
for i=2 to [g65536].end(3).row stepe 2
if cells(i,"g")<>cells(i+1,"g") then
Cells(i, "G").Resize(2, 1).Interior.Color = vbYellow
end if
next
end sub

scbzyj

taller 发表于 2020-3-16 01:44
代码行数变少，但是运行效率降低了

是的，请教另外一个问题，有没有VBA如何访问FTP的教程呢