Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13500 / 13644 ツリー ←次へ | 前へ→

【5083】セルに思い通りに並べたい リンチェイ 03/4/21(月) 18:17 質問
【5091】Re:セルに思い通りに並べたい ゆと 03/4/22(火) 0:16 発言
【5095】Re:セルに思い通りに並べたい リンチェイ 03/4/22(火) 9:21 発言
【5110】Re:セルに思い通りに並べたい ひで 03/4/22(火) 15:02 回答
【5114】Re:セルに思い通りに並べたい リンチェイ 03/4/22(火) 17:16 お礼

【5083】セルに思い通りに並べたい
質問  リンチェイ  - 03/4/21(月) 18:17 -

引用なし
パスワード
   21
aa
32
4a
bb
a3
ee
f4
g2
35
a4
と並んでいるものをマクロで
aa21 eea3
4a32 g2f4
a3bb a435
のように並べかえたいのですけど、
どのようにマクロを書けばよいでしょうか?

【5091】Re:セルに思い通りに並べたい
発言  ゆと  - 03/4/22(火) 0:16 -

引用なし
パスワード
   リンチェイ さんこんばんは。

例を見させていただいたのですが、いまいち
規則性がつかめませんでした(^^;
よくわからないのは、a3が重複して使用して
いるのは、意図したものなのでしょうか?

決まった形にしたいのでしたら一度『マクロ
の記録』でどんなコードが生成されるかを確
認された方が後の為にはよいのではないかと
思います。

回答でもないのに、しゃしゃり出てすみません。

>21
>aa
>32
>4a
>bb
>a3
>ee
>f4
>g2
>35
>a4
>と並んでいるものをマクロで
>aa21 eea3
>4a32 g2f4
>a3bb a435
>のように並べかえたいのですけど、
>どのようにマクロを書けばよいでしょうか?

【5095】Re:セルに思い通りに並べたい
発言  リンチェイ  - 03/4/22(火) 9:21 -

引用なし
パスワード
   例の説明が浅すぎたかもしれません。
a3とかは特に関係なくランダムにの数値や文字
が縦に並んだものを上下のセルに入っているものを
つなげ1つのセルに表示させる動作を
縦に3回行い次に隣の最初のセルにまた3回と
いったように並べたいと思います。
例 数値は並べる順番に示してあります。
1.aa21 4.eea3
2.4a32 5.g2f4
3.a3bb 6.a435
のようです。
21 ↓つなげるのは上から順にです。
aa  aa21
32   ↓
4a  4a32
bb  のようにです。
a3
ee
f4
g2
35
a4

【5110】Re:セルに思い通りに並べたい
回答  ひで  - 03/4/22(火) 15:02 -

引用なし
パスワード
   ▼リンチェイさん ゆとさん こんにちは
横から失礼します。

ほんの一例です。(もっとよい方法があると思いますが・・)

A列に数字や文字
B列以降につながった数字や文字が入ります。

Sub test1()

Dim acs As String
Dim N As Long
Dim r As Long
Dim t As Long
Dim s As Long

acs = ActiveWorkbook.ActiveSheet.Name
t = 1 '1行目
s = 2 'B列

N = Sheets(acs).Range("a" & Rows.Count).End(xlUp).Row

For r = 1 To N Step 2

Cells(t, s) = Cells(1 + r, 1) & Cells(r, 1)
t = t + 1

If t > 3 Then
s = s + 1
t = 1
Else
End If

Next r

End Sub

'win 98 Excel 2002

【5114】Re:セルに思い通りに並べたい
お礼  リンチェイ  - 03/4/22(火) 17:16 -

引用なし
パスワード
   どうもありがとうございます。

思い通りにできました。

13500 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free