|
考え方としては下みたいなことで、
上から順繰りにやればいいんじゃないかな、と思います。
Sub 空白セルに一個上のものを入れる()
Dim myCell As Integer
For myCell = 1 To 100
If Range("A" & myCell).Value = "" Then
Range("A" & myCell).Value = Range("A" & myCell - 1).Value
End If
Next myCell
End Sub
あとは、range("A65536").End(XlUp).Rowとかで、ループの回数を取得するとか。
Range(Cells(x,y), Cells(x,y))とかでくるくるまわしてやればいいかと。
▼空欄が苦手 さん:
>こんにちわ。
>派遣先の会社の基幹システムは融通がきかず、データを抽出するとグループ化して出てきて、そのうえ同じコードなのであれば省略してしまいます。
>
>言葉では説明しにくいので・・・
>
>エクセルに貼り付けたときのイメージ
>
>得意先コード 電話番号 住所 売上高
>111111 xxx-9999 ほにゃら県 99999円
>空欄 空欄 空欄 88888円
>222222 ooo-5555 なんか県 66666円
>空欄 空欄 空欄 12345円
>空欄 空欄 空欄 54321円
>333333 ***-1111 謎々県 78945円
>
>
>といった感じで、私が作りたいのはこの空欄達をボタン一発で埋めたいのです。
>ただ単に一つ上のセルをコピーではだめなのはわかりますが、どうしていいのかはわかりません。
>
>お助けください。
|
|