[已解决]求hrpotter老师制作的代码

759857387

附件上次基本相同，只是求加一点代码，这是上次的帖子http://www.excelpx.com/thread-244251-1-1.html
Book8.rar (13.04 KB, 下载次数: 15)

2012-6-4 17:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-6-4 17:59

1. Sub test()
   
2.     Dim rng As Range
   
3.     With Sheet1
   
4.         For Each rng In .Range("b26:e26")
   
5.             If (rng Like "*↑↑*" Or rng Like "*↓↓*") And rng.Value <> rng.Offset(1, 0) Then    '是否可以加一点代码（意思是）：AND .Range("B27:E27") <> .Range("B26:E26").Value
   
6.                 MsgBox .Cells(1, rng.Column)
   
7.             End If
   
8.         Next
   
9.     End With
   
10.     Sheets("sheet1").Range("B27:E27") = Sheets("sheet1").Range("B26:E26").Value   '这是我加的
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

ws278106483

1. Sub test()
   
2.     Dim rng As Range
   
3.     With Sheet1
   
4.         For Each rng In .Range("b26:e26")
   
5.             If (rng Like "*↑↑*" Or rng Like "*↓↓*") And rng.Value <> rng.Offset(1, 0) Then    '是否可以加一点代码（意思是）：AND .Range("B27:E27") <> .Range("B26:E26").Value
   
6.                 MsgBox .Cells(1, rng.Column)
   
7.             End If
   
8.         Next
   
9.     End With
   
10.     Sheets("sheet1").Range("B27:E27") = Sheets("sheet1").Range("B26:E26").Value   '这是我加的
    
11. End Sub
    

复制代码

ws278106483

不知道可不可以，试了一下。

759857387

ws278106483 发表于 2012-6-4 17:59

非常感谢ws278106483，在请问rng.Value 是26还是27行

ws278106483

759857387 发表于 2012-6-4 18:18
非常感谢ws278106483，在请问rng.Value 是26还是27行

楼主是26行的，  

759857387

ws278106483 发表于 2012-6-4 22:30
楼主是26行的，

你说话照人不爱听，以后你回答也不给

ws278106483

759857387 发表于 2012-6-4 23:49
你说话照人不爱听，以后你回答也不给

rg.value是26行。rg.value.offset(1,0)是向下偏移了的。那样就可以达到你的要求了。