어제 새벽에 글올렸었는데 다시한번 올릴게요ㅠㅠ
엑셀 줄수에 따라서 행높이를 자동으로 조절하는 매크로를 만들고싶어요.
예를 들면 한줄일땐 20, 두줄일땐 35, 세줄일땐 50 네줄일땐 65... 이런식으로요. 5줄부터는 얼마안돼니까 손으로 해도 될거 같아요.
그리고 시트안에 데이터에는 이리저리 복잡하게 셀병합도 되어있는 상황입니다.
매크로 잘하시는 고수님들 매크로좀 짜주셔요ㅠㅠ 부탁드립니다
구글링하다 찾은 매크로가 있는데요
--------------------------------------------------
Option Explicit
Option Base 1
Sub Button1_Click()
Dim rng As Range, rngA As Range
Dim arrW As Variant
Dim i As Integer
Set rngA = Columns(1).SpecialCells(xlCellTypeConstants)
arrW = Array(20, 35, 45, 60)
For Each rng In rngA
i = (rng.Characters.Count + 1) \ 2
rng.RowHeight = arrW(i)
Next rng
End Sub
--------------------------------------------------------------------------
근데 이건 셀병합상태에선 안먹네요... 혹시 이걸 베이스로 수정가능하실까해서 올려봅니다.
글쓰기