（有点奇葩？）VBA能做这个题？

晒阳光

试过函数条件格式还是不知怎么搞。
哪位高人能否出出手。。。先谢了！

zjzyj

供参考
Sub test()
m = Range("BG6").Value
n = Range("BG8").Value
Set Rng = Range("F4:AX61")
Set Rng = Rng.Resize(Rng.Rows.Count - m + 1, Rng.Columns.Count - n + 1)

For Each rrr In Rng
    arr = rrr.Resize(m, n).Value
    k = 0
    For i = 1 To m
        For j = 1 To n
            If arr(i, j) <> "" Then
                k = 1
                Exit For
            End If
        Next
        If k = 1 Then Exit For
    Next
    If k = 0 Then rrr.Resize(m, n).Interior.Color = vbRed
Next

End Sub

一把小刀闯天下

'去除可能出现的叠加区域，左、下方向搜索，不用方向结果不一定相同，，，

Option Explicit

Sub test()
  Dim arr, i, j, k, kk, x, y
  arr = [a1:ax61].Value
  x = [bg6].Value: y = [bg8].Value
  [a1].Resize(UBound(arr, 1), UBound(arr, 2)).Interior.ColorIndex = xlNone
  For i = 4 To UBound(arr, 1) - x + 1
    For j = 6 To UBound(arr, 2) - y + 1
      If Len(arr(i, j)) = 0 Then
        For k = i To i + x - 1
          For kk = j To j + y - 1
            If Len(arr(k, kk)) > 0 Or Cells(k, kk).Interior.Color = vbRed Then Exit For
          Next
          If kk < j + y Then Exit For
        Next
        If k = i + x Then Cells(i, j).Resize(x, y).Interior.Color = vbRed
      End If
    Next
  Next
End Sub

清风竹-

请看附件。

wanghongfei

1. Sub sasw()
   
2. Set r = [f4:ax61]
   
3. For x = 1 To 51
   
4.     For y = 1 To 39
   
5.     Set rng1 = r.Cells(x, y).Resize(6, 5)
   
6.     Set Rng2 = r.Cells(x, y).Offset(-1, -1)
   
7.         If WorksheetFunction.CountBlank(rng1) = 30 Then
   
8.             If WorksheetFunction.CountBlank(Rng2.Cells(1, 2).Resize(1, 5)) <> 5 _
   
9.             And WorksheetFunction.CountBlank(Rng2.Cells(8, 2).Resize(1, 5)) <> 5 _
   
10.             And WorksheetFunction.CountBlank(Rng2.Cells(2, 1).Resize(6, 1)) <> 6 _
    
11.             And WorksheetFunction.CountBlank(Rng2.Cells(2, 7).Resize(6, 1)) <> 6 Then
    
12.                 rng1.Interior.Color = vbRed
    
13.             End If
    
14.         End If
    
15.     Next
    
16. Next
    
17. End Sub

复制代码

晒阳光

清风竹- 发表于 2021-3-8 20:58
请看附件。

高手！谢谢！ 很接近我要的结果。现在有的结果或多或少给定的高度，宽度。

清风竹-

晒阳光 发表于 2021-3-8 21:28
高手！谢谢！ 很接近我要的结果。现在有的结果或多或少给定的高度，宽度。

请指出哪些是对的，哪些是错的，可以修改。

yjh_27

晒阳光 发表于 2021-3-8 21:28
高手！谢谢！ 很接近我要的结果。现在有的结果或多或少给定的高度，宽度。

参见附件。

准提部林

緊臨邊界的算不算???
如:左上角, 或靠上邊的

清风竹-

晒阳光 发表于 2021-3-8 21:28
高手！谢谢！ 很接近我要的结果。现在有的结果或多或少给定的高度，宽度。

修改完毕。