オンライン講座 質問と回答

無料・有料のオンライン講座で寄せられたメッセージの一部を紹介致します。

[2524]あらかじめ並べ替えられているリストから重複しないリストを作成する

2014-09-22 07:17:22 受講生さんからの投稿です。

重複しないリストの作成方法、理解できました。
まだまだ理解を深めていきます。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[1603]あらかじめ並べ替えられているリストから重複しないリストを作成する

2014-07-05 17:39:09 荏隈 直樹さんからの投稿です。

Sub mondai7()
    Dim BG As Long
    Dim BEG As Long
    Dim ToG As Long
    Dim WSM As Worksheet
    
    Set WSM = Worksheets("main")
    BEG = WSM.Range("B65536").End(xlUp).Row
    ToG = 2
    
    For BG = 2 To BEG
        If WSM.Range("B" & BG).Value <> WSM.Range("B" & BG - 1).Value Then
            WSM.Range("D" & ToG).Value = ToG - 1
            WSM.Range("E" & ToG).Value = WSM.Range("B" & BG).Value
            ToG = ToG + 1
        End If
    Next
End Sub


解説文とほぼ同じでしたね

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[914]あらかじめ並べ替えられているリストから重複しないリストを作成する

2014-01-05 18:54:33 受講生さんからの投稿です。

migi = migi + 1
の位置をEnd If の後に持ってきたらどうなるか想像してやってみたところ思ったとおりになりました。

もう一つ

For hida = 2 To 500 
と317よりも長めにおいてみたところD22のセルに21が入ってしまいました。
なぜD22にだけ入ってしまうのかが理解ません。
自分でマクロを動かしたときにも一番下の行だけほかの行と
違っていたりするのと関係がある気がするのですが・・


Sub rensyu()
Dim migi As Long
Dim hida As Long
migi = 2
For hida = 2 To 500
If Range(“B” & hida).Value <> Range(“B” & hida – 1).Value Then
Range(“D” & migi).Value = migi – 1
Range(“e” & migi).Value = Range(“B” & hida).Value
migi = migi + 1
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名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ