ＶＢＡ超初心者です。

締切済

質問者：inogan_1975
質問日時：2010/06/10 13:57
回答数：4件

ＶＢＡ超初心者です。
エクセルマクロを使って、以下の処理を実行したいのですが、うまくいきません。

■ＡＢＣＤＥＦＧＨ
１あい
２うえ
３おか
４きく
５けこ
６さし
↓
■ＡＢＣＤＥＦＧＨ
１　　あいうえおか
２　　きくけこさし
３　　すせ・・・・　　
４
５
---

Cells(j, i).Select
Selection.Cut Destination:=Selection.Offset(-j + 1, 2 * j + 1)

で1行目は動きましたが、2行目以降がまったく動きません。

御教授の程、宜しくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

最新から表示
回答順に表示

No.4

回答者： layy
回答日時：2010/06/10 21:35

excelvbaへの道

http://www.voicechatjapan.com/excelvba/VBArei2.htm
よく使うところ提供します。
ここが一番というわけでもないですが。

こういうところはたくさんあるので参考に。
試している「OFFSET」についても記載あります。

- 0
- 件

通報する

No.3

回答者： Wendy02
回答日時：2010/06/10 17:42

あえて、元のマクロを直しみました。

決して、私の流儀の書き方ではないのですが、Cells に数式を入れてもよいですが、ごちゃごちゃした数式をセルに入れるのは、みっともないのでら、以下のようにしました。

Sub Sample()
Dim i As Long, j As Long
Dim u As Long, x As Long, y As Long
Dim rng As Range
Set rng = Range("A1", Cells(Rows.Count, 1).End(xlUp)).Resize(, 2) 'Aから2列
　　For i = 1 To Int(rng.Count / 2 + 0.9)
　　　For j = 1 To 2 '2列
　　　　u = Int(i - 1) * 2 + j
　　　　x = Int((u - 1) / 6) + 1　'1行目
　　　　y = (u - 1) Mod 6 + 1 + 3 'D列
　　　　Cells(i, j).Cut Cells(x, y)
　 Next
　Next
End Sub

もう少しマクロらしくしてみました。(標準モジュール用）
''=====
'//
Sub TestMacro1()
　Dim rng As Range
　Dim Ar() As Variant
　Dim i As Long, j As Long, k As Long
　'//設定開始
　Const RW As Long = 1 'スタート行
　Const COL As Long = 4 'スタートD列目
　Const NUM As Long = 6 '桁
　'元のデータ範囲
　Set rng = Range("A1", Cells(Rows.Count, 1).End(xlUp)).Resize(, 2)
　'//設定終了
　
　ReDim Ar(rng.Count - 1)
　For Each c In rng
　　Ar(k) = c.Value
　　k = k + 1
　Next
　k = 0
　Application.ScreenUpdating = False
　For i = RW To Int(rng.Count / NUM + 0.9) + RW - 1
　　For j = 0 To NUM - 1
　　　Cells(i, COL + j).Value = Ar(k)
　　　k = k + 1
　　　If k > rng.Count - 1 Then Exit For
　　Next
　Next
　Application.ScreenUpdating = True
　rng.ClearContents
　Set rng = Nothing
End Sub