|
▼空欄が苦手 さん:
こんにちは。
>派遣先の会社の基幹システムは融通がきかず、データを抽出するとグループ化して出てきて、そのうえ同じコードなのであれば省略してしまいます。
>
>
>エクセルに貼り付けたときのイメージ
>
>得意先コード 電話番号 住所 売上高
>111111 xxx-9999 ほにゃら県 99999円
>空欄 空欄 空欄 88888円
>222222 ooo-5555 なんか県 66666円
>空欄 空欄 空欄 12345円
>空欄 空欄 空欄 54321円
>333333 ***-1111 謎々県 78945円
>
>
>といった感じで、私が作りたいのはこの空欄達をボタン一発で埋めたいのです。
埋めた結果も記述して下さい(わかるだろうと思ってもです)。
標準モジュールに
'================================================================
Sub test()
Dim rng As Range
On Error Resume Next
Set rng = Range("d1", Cells(Rows.Count, 4).End(xlUp)).Offset(0, -3).Resize(, 3).SpecialCells(xlCellTypeBlanks)
With rng
.Formula = "=r[-1]c"
For Each crng In .Areas
crng.Value = crng.valie
Next
End With
End Sub
として、対象シートをアクティブにして試してみて下さい。
細かいエラー処理はしていませんが・・・、
確認して下さい。
|
|