[[20140929105234]] 『VBAで並べ替えをしたい』(タマちゃん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『VBAで並べ替えをしたい』(タマちゃん)

VBA勉強中の初心者です。
C列を基準に見て、E列に並べ替える。
A列はランダムで、数値、及び文字が入力されている。
C列はランダムで、数値が入力されている

C列の値をE列に記入
同行のA列を見て、値を下に記入
C列の値が上と同じであれば、C列の値は記入せず、その下にA列の値を記入、
以降は繰り返し

宜しくお願いします。

    A    C    E
1   X    3    3
2   W    3    X
3   C    2    W
4   A    4    2
5  10    4    C
6   K    4    4
7   D    7    A
8            10
9             K
9             7
9             D

< 使用 Excel:Excel2013、使用 OS:Windows7 >


 とりあえずのサンプルです。
 Sub Sample()
    Cells(1,"E").Value = Cells(1,"C").Value
    Cells(2,"E").Value = Cells(1,"A").Value
    rr = 3
    For r=2 To 7
        If Cells(r,"C").Value <> Cells(r-1,"C").Value Then
             Cells(rr,"E").Value = Cells(r,"C").Value
             rr = rr + 1
         End If
         Cells(rr,"E").Value = Cells(r,"A").Value
         rr = rr + 1
    Next
 End Sub

(Mook) 2014/09/29(月) 11:15


Mookさん、早速の御指導有難う御座いました。
流れが解りました。他にも流用出来そうです。
感謝です。
(タマちゃん) 2014/09/29(月) 11:32

再度教えてくださいませんか?
下記のように、区切りに固定値「SUB」を入れる時は、上記VBAの何処に入れればよいのでしょうか?

 E列
 3
 X
 W
 SUB
 2
 C
 SUB
 4
 A
10
 K
 SUB      
 7
 D
 SUB      

(タマちゃん) 2014/09/30(火) 11:16


 IF の中の処理を二つに増やせばよいのではないでしょうか。
(Mook) 2014/10/01(水) 12:57

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.