人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

下記質問で空行を追加するエクセルのマクロを
教えていただきました。
http://q.hatena.ne.jp/1245772843

ちなみに教えていただいたマクロに機能を追加し、
空の行を入れた都道府県名のみを
E列にコピーするということを行いたいです。

可能でしょうか?


北海道 ○○市○? 北海道
北海道 ○○○○市○?
北海道 ○○市○?

青森県 ○市? 青森県

宮城県 ○○市? 宮城県
宮城県 ○○○市?
宮城県 ○○○市?
宮城県 ○○○市?
宮城県 ○○○市?

福島県 ○市? 福島県
福島県 ○○○○市○?


どうぞよろしくお願いいたします。


●質問者: ohtsu6
●カテゴリ:コンピュータ
✍キーワード:エクセル コピー マクロ 北海道 宮城県
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●300ポイント

リンク先の回答の最後に以下のコードを挿入してみてください。

 Dim s As String
 lastRow = Cells(Rows.Count, 2).End(xlUp).Row
 For r = 1 To lastRow
 If Cells(r, 1).Value <> s And Cells(r, 1).Value <> "" Then
 s = Cells(r, 1).Value
 Cells(r, "E").Value = s
 End If
 Next
◎質問者からの返答

出来ました。

どうもありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ