能这样标色吗？

青青的河边草

在表中尾端有数据的倒数第4行与倒数第2行中，按B键，若同列中这2个相同，那么就这2个数就标上黄色。

一把小刀闯天下

，，，，，，，，，
--------------------

shenjianrong163

1.此代码放在ThisWorkbook中：

1. Private Sub Workbook_Open()
   
2.     Application.OnKey "b", "test"
   
3. End Sub

复制代码

2.此代码放在模块中：

1. Sub test()
   
2.     Dim i&, rng As Range, arr
   
3.     With Sheets("Sheet1")
   
4.         arr = .Range("A1:AU" & .Cells(.Rows.Count, "j").End(xlUp).Row).Value
   
5.         .UsedRange.Interior.ColorIndex = xlNone
   
6.         For i = 10 To UBound(arr, 2)
   
7.             If arr(UBound(arr) - 1, i) = arr(UBound(arr) - 3, i) Then
   
8.                 If rng Is Nothing Then
   
9.                     Set rng = Union(.Cells(UBound(arr) - 1, i), .Cells(UBound(arr) - 3, i))
   
10.                 Else
    
11.                     Set rng = Union(rng, .Cells(UBound(arr) - 1, i), .Cells(UBound(arr) - 3, i))
    
12.                 End If
    
13.             End If
    
14.         Next
    
15.         If Not rng Is Nothing Then rng.Interior.ColorIndex = 6
    
16.     End With
    
17. End Sub

复制代码

shenjianrong163

按键盘上的字母“B”，自动执行程序，请参考附件：


点对点多柱 .rar (1.26 MB, 下载次数: 5)

2020-6-6 20:52 上传

点击文件名下载附件

青青的河边草

shenjianrong163 发表于 2020-6-6 20:53
按键盘上的字母“B”，自动执行程序，请参考附件：

能否将代码填入按钮B中。

shenjianrong163

青青的河边草 发表于 2020-6-6 22:08
能否将代码填入按钮B中。

点对点多柱 .rar (1.25 MB, 下载次数: 3)

2020-6-6 23:53 上传

点击文件名下载附件