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

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

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

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


●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:VBA エクセル ポイント マクロ 差し
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●100ポイント
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組の中で入っていないセルの場合、加えないようにすれば

いいんですよね。

◎質問者からの返答

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

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

関連質問


●質問をもっと探す●



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