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

エクセルマクロの製作をお願いします

列毎にデータが入力されていますがデータの個数がバラバラになっています。このデータのレイアウトを整える事を考えています。
希望は画像の様に指定文字(この場合、住所)があった場合、50行目までセルを追加して全ての列を揃える事です。(50行分追加ではありません)
###は最終行です。

よろしくお願いします。

1273506362
●拡大する

●質問者: WATANABE
●カテゴリ:コンピュータ インターネット
✍キーワード:エクセル セル データ マクロ レイアウト
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● kopj
●60ポイント
Sub Macro1()
 開始列 = 2  ' Bが 2列目
 開始行 = 2  ' 名前の箇所が 1行目にあると前提
 
 チェック文字 = "住所"  ' チェック文字を 判断して ずらします。
 
  '整列開始行からにそろえますが、
  '整列開始行を 超えている場合は 何もしません。
 整列開始行 = 50
 
 
 For a = 開始列 To 255
 If Cells(開始行, a) = "" Then Exit For
 For b = 開始行 To 整列開始行 - 1
 If Cells(b, a) = チェック文字 Then
 Cells(b, a).Insert Shift:=xlDown
 End If
 Next b
 Next a
End Sub

関連質問


●質問をもっと探す●



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