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


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

よろしくお願いします。

回答の条件
  • 1人2回まで
  • 13歳以上
  • 登録:2010/05/11 00:46:06
  • 終了:2010/05/18 00:50:02

回答(1件)

id:kopj No.1

kopj回答回数123ベストアンサー獲得回数62010/05/11 09:37:40

ポイント60pt
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

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません