Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13502 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   どうもありがとうございます。

思い通りにできました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13502 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free