- 276 名前：デフォルトの名無しさん mailto:sage [2022/02/28(月) 20:20:02.79 ID:h1aqAX/2M.net]
- >>271
あ、あ、ありがとう
正直解読するのに一時間くらいかかって自分のに書き直せました。
一応動いていけそうです！ 高さチェックでいけますね
こんなチンケな感じになりました。
神々に感謝します。
Sub test()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
Dim row_shou As Long
row_shou = Range("A14:D150").Find("小 計").Row
'行の高さ15以上を検索
h = 15
For i = 14 To row_shou - 1
If Cells(i, 1).RowHeight > h Then
Exit Sub
End If
Next
Next Ws
End Sub
