excelで空文字を埋めたい
行の増える方向に、
罫線から値まで 埋めたい:その値
値から値まで 埋めたい:着色
値から罫線まで 埋めたい:その値
探しています。よろしくお願いします。
20200319---------------------------
チャレンジしてみました。
汎用性をもたせる方法を教えて下さい。
①maxr=50固定をはずしたい。
②1列しか出来ない。全部の列で実行したい。
Sub 罫線から罫線まで文字埋め()
ic = 1
maxr = 50
moji = ""
For i = 1 To maxr
If Cells(i, ic) <> "" Then
moji = Cells(i, ic)
Else
Cells(i, ic) = moji
End If
If Cells(i,ic).Borders(xlEdgeBottom).LineStyle = -4142 Then
Else
moji = ""
End If
Next
For i = maxr To 2 Step -1
If Cells(i, ic) <> "" Then
moji = Cells(i, ic)
Else
Cells(i, ic) = moji
End If
If Cells(i - 1,ic).Borders(xlEdgeBottom).LineStyle = -4142 Then
Else
moji = ""
End If
Next
end sub