エクセルVBAについて質問です。


次のページにあるマクロを作ってください。
http://hatena88.web.fc2.com/hatena/newpage1.html
最初に正解された方に100ポイントを差し上げます。

マクロはエクセルに貼り付ければ、すぐに使えるような状態でご回答お願いします。

回答の条件
  • 1人2回まで
  • 登録:2007/10/01 05:43:16
  • 終了:2007/10/01 13:23:39

回答(1件)

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982007/10/01 07:12:11

ポイント100pt
Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A65536").End(xlUp).Select
    a = Selection.Row

    crow = 1
    ccol = 1
    e = 1
    For b = 1 To a
        d = Cells(b, 1)
        If d <> "" Then
            Cells(b, 1) = ""
            Cells(crow, ccol) = d
            ccol = ccol + 1
        End If
        
        e = e + 1
        If e >= 6 Then
            e = 1
            ccol = 1
            crow = crow + 1
        End If
    Next b
End Sub

5組の中で入っていないセルの場合、加えないようにすれば

いいんですよね。

id:taroemon

いつもご回答ありがとうございます。

完璧にうまくいきました。

2007/10/01 13:22:23

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

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

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

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

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