[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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
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.