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

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

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

[10564] 2018-09-11 12:19:04 受講生さんからの投稿です。

-----------------------
Sub XXX()
Dim kuiki
Dim gyosha
gyosha = 1
Dim gyo
For gyo = 2 To 27
If Range("A" & gyo - 1).Value <> Range("A" & gyo).Value Then
gyosha = gyosha + 1
Range("E" & gyosha).Value = Range("A" & gyo).Value
Range("F" & gyosha).Value = Range("B" & gyo).Value
kuiki = Range("C" & gyo).Value & "地区"
Else
kuiki = kuiki & "," & Range("C" & gyo).Value & "地区"
End If
If Range("A" & gyo).Value <> Range("A" & gyo + 1).Value Then
Range("G" & gyosha).Value = kuiki
End If
Next
End Sub
-------------------------
今回の2つ目の問題を↑のように解いてから動画を見ました。
このマクロであれば最初と最後の処理を必要としないので良いような気もするのですが、なんとなく格好が悪い気もします。
最初と最後の処理をするマクロを自分で導くのは正直自分には難しそうと尻込みしてしまいますが、自分で導くためのプロセスを順を追って動画で紹介して下さっているので、とても勉強になりました。何回もこの動画を見直して練習したいと思います。

 


[10566] 2018-09-13 08:17:52 小川慶一さんからの投稿です。

受講生 さん:

まずは、自力で考えて解けたということはすばらしいです☆

このやり方もパターンなので、マスターされると応用範囲広いです。

ご提示のコードだと、たとえば100万行のデータだとしたら、条件分岐が200万回生じますね。
そのロスをどう解釈するか?です。


> -------------------------
Sub XXX()
    Dim kuiki
    Dim gyosha
    gyosha = 1
    Dim gyo
    For gyo = 2 To 27
        If Range("A" & gyo - 1).Value <> Range("A" & gyo).Value Then
            gyosha = gyosha + 1
            Range("E" & gyosha).Value = Range("A" & gyo).Value
            Range("F" & gyosha).Value = Range("B" & gyo).Value
            kuiki = Range("C" & gyo).Value & "地区"
        Else
            kuiki = kuiki & "," & Range("C" & gyo).Value & "地区"
        End If
        If Range("A" & gyo).Value <> Range("A" & gyo + 1).Value Then
        Range("G" & gyosha).Value = kuiki
        End If
    Next
End Sub

> -------------------------
> 今回の2つ目の問題を↑のように解いてから動画を見ました。
> このマクロであれば最初と最後の処理を必要としないので良いような気もするのですが、なんとなく格好が悪い気もします。
> 最初と最後の処理をするマクロを自分で導くのは正直自分には難しそうと尻込みしてしまいますが、自分で導くためのプロセスを順を追って動画で紹介して下さっているので、とても勉強になりました。何回もこの動画を見直して練習したいと思います。

 


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

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

トップへ