エクセルマクロ オンライン講座コメント紹介

コメント紹介
   └ エクセルマクロ・VBA基礎編フォローアップ ベーシック
       └ 表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

[6205] 2016-03-29 23:37:29 受講生さんからの投稿です。

動画をみて感じたのは
まさに今回私が作ったプロセスそのものだったので、こうやって試行錯誤していけば
いいんだな、ということです。
私もまず何かが目標セルに入るところから始まり、少しずつ修正していきました。
午前中あげたものも、どうしてこれならうまくいくのかよくわからないけど
結果をみるとうまくいった!みたいな感じでした。
(つまり、いろいろ分かっておりません(笑))
要求度の高い問題なので、繰り返し挑戦して、覚えていきたいと思いました。

午前中UPしたコードには無駄な行がありましたので、修正を加え、私の完成形は
以下のようになりました。
先生のと少し違うのですが、結果はうまくいっているのでいいのかな(*´∀`*)

A列が重複データでないときは、左のリストは1行下に記述され、
重複データのときは、左のリストは変数kuikiに追加格納されていく
という方法です。
Sub rensyu032904()
                    '第18問の[2]解答 K列含む
    Dim gyo         '元データ行位置
    Dim gyosya      '作成リストの行位置
    gyosya = 1
    Dim kuiki          '区域を格納する変数
    For gyo = 2 To 27
       
        If Range("A" & gyo - 1).Value = Range("A" & gyo).Value Then
            kuiki = kuiki & "," & Range("C" & gyo).Value & "地区"
            Range("G" & gyosya).Value = kuiki
           
        ElseIf Range("A" & gyo - 1).Value <> Range("A" & gyo).Value Then
            gyosya = gyosya + 1
            Range("E" & gyosya).Value = Range("A" & gyo).Value
            Range("F" & gyosya).Value = Range("B" & gyo).Value
            kuiki = Range("C" & gyo).Value & "地区"
            Range("G" & gyosya).Value = kuiki
        End If
    Next  
End Sub

by gooska

 


[6287] 2016-04-04 06:50:55 小川慶一さんからの投稿です。

受講生 さん:

お返事遅くなりました。そして、今改めてコードを読んでみるとどうでしょうか。

 


まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ