|
▼ichinose さん
文句無しの物が作れました!
本当にありがとうございました!
今後は変更後の表もちゃんと書くようにします。
本当にありがとうございます!!
>こんにちは。
>
>>派遣先の会社の基幹システムは融通がきかず、データを抽出するとグループ化して出てきて、そのうえ同じコードなのであれば省略してしまいます。
>>
>
>
>>
>>エクセルに貼り付けたときのイメージ
>>
>>得意先コード 電話番号 住所 売上高
>>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
>
>として、対象シートをアクティブにして試してみて下さい。
>
>細かいエラー処理はしていませんが・・・、
>確認して下さい。
|
|