求助，如何才能只显示1对应的2行列

cfull

求助，如何才能只显示1对应的2行列，标黄区域都要显示

ykcbf1100

没看明白。
名字的最后一行，如果有1,则名字相同的有1的那一列都标黄，是这意思吗？

cfull

ykcbf1100 发表于 2024-3-22 08:21
没看明白。
名字的最后一行，如果有1,则名字相同的有1的那一列都标黄，是这意思吗？

需要显示1对应的2行，其他地方不显示，或者怎么隐藏

ykcbf1100

cfull 发表于 2024-3-22 08:23
需要显示1对应的2行，其他地方不显示，或者怎么隐藏

标色更合适，部分隐藏不好做吧。
姓名都是3行吗？

cfull

ykcbf1100 发表于 2024-3-22 08:27
标色更合适，部分隐藏不好做吧。
姓名都是3行吗？

是的，姓名都是3行的，或者只显示标黄的，其他内容删不显示，显示为空白

swl4561255

1. Sub test()
   
2. Dim myr As Range
   
3. Range("B2:H7").Interior.ColorIndex = Null
   
4. MsgBox "即将重新填色！"
   
5. For Each myr In Union(Range("B4:H4"), Range("B7:H7"))
   
6.   If myr = 1 Then
   
7.     myr.Offset(-2, 0).Resize(3, 1).Interior.ColorIndex = 6
   
8.   End If
   
9. Next
   
10. End Sub
    

复制代码

蓝桥玄霜

实例的例子：

LIUZHU

这个只能用条件格式吧？

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.22
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 8)
   
4.     [a1].Resize(r, 8).Offset(1, 1).Interior.ColorIndex = 0
   
5.     For i = 2 To UBound(arr) Step 3
   
6.         For j = 2 To UBound(arr, 2)
   
7.             If arr(i + 2, j) = 1 Then
   
8.                 Cells(i, j).Resize(3, 1).Interior.ColorIndex = 6
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub
    

复制代码