|
皆様よろしくお願いいたします。
先日お世話になりました空白の行を非表示にするマクロです。
●マクロ1
Dim MyR As Range
On Error GoTo ELine
Set MyR = Range("Z1:Z9").SpecialCells(3, 2).EntireRow
On Error GoTo 0
MyR.Hidden = IIf(MyR.Hidden, False, True)
Set MyR = Nothing
ELine:
End Sub
●マクロ2 Set MyR = Range("Z10:Z20").SpecialCells(3, 2).EntireRow
●マクロ3 Set MyR = Range("Z21:Z30").SpecialCells(3, 2).EntireRow
ここで行の変動が多発し,全ての範囲を組み替えるのが困難なもので
Z1:Z9 の範囲を,組み番号:A1:A9 に1
Z10:Z20の範囲を,組み番号:A10:A20に2・・・
等で対応したいと思ってます。
Find等で組んでみたもののなかなか作動してくれません。
ご伝授をよろしくお願いいたします。
|
|