見出し画像

Twitterで見かけた困ったExcel問題をVBAでやってみた💻

チサ@パソコンインストラクターのひとりごと♪

こんにちは！
パソコンインストラクター歴12年の
チサです。(*´∀｀)

今日は
Twitterで見かけた困ったExcel問題を
VBAでやってみた💻

って話を書きますねー！
＼＿ﾍ('ω'　)ｶﾀｶﾀ

昨日のnoteでも
書いてたんですが…

Twitterで
こんなツイートを発見
👇


セル結合されてる
元データから
データを取り出したい。

みたいな感じ。
( ﾟｰﾟ)ｳ ( ｡_｡)ﾝ

簡単にいうと
左の表をもとに
右のリストを作る👇

これ…
関数やらVBAやら
パワークエリやら
いろんなやり方でできる。

わたしはそのどれとも違う方法を
昨日のnoteで書きました👇


で…
そのあと、VBAでも
やってみたので

コードを紹介しますね。
(о´∀`о) 

Sub mondai()
    Dim gyo As Long

    For gyo = 2 To 11
     
        If Range("B" & gyo) <> "" Then
            Range("F" & gyo).Value = Range("B" & gyo).Value & Range("C" & gyo).Value & Range("D" & gyo).Value
        Else
            Range("F" & gyo).Value = Range("B" & gyo).End(xlUp).Value & Range("C" & gyo).Value & Range("D" & gyo).Value
        End If  
    Next
End Sub

まあ、
ざっくり説明すると

B列 C列 D列の文字列をくっつけて
F列に転記

もし、B列が空白なら
その直近の上セルにあるデータを
引っ張ってくるようにしてます。

👇この部分のこと
Range("B" & gyo).End(xlUp).Value

あとは
2行目から11行目まで
ループさせてる。

実行すると
無事にうまくいきました🎉👇
ヾ(●´∇｀●)ﾉ

そこまでややこしいロジックではないから
VBAでは
すぐに書けたけれど…

関数でやろうとしたら
めっちゃくちゃ
ややこしかったので🌀
途中で断念🤣

あと、パワークエリでも
やってみたけど
こちらも意外と簡単にできた🎉

セル結合のある元データも
パワークエリでテーブルがすると
勝手に結合が解除になったので
びっくり🫢

B列の空白セル問題については

B列選択 ➡️ 下方向へフィル

これだけで解決⭐️



あたらしい列の追加は

B列からD列を選択して
列の追加→列のマージ

これでオッケー👌

めっちゃ簡単だった！
₍₍ ᕕ(´ ω` )ᕗ⁾⁾

結局、どの方法をつかうにしても

どうやれば解決できそうか⁉️

これを考えつくのが
1番大変かも！
(*´ω`)ｳﾝｳﾝ

いろんな問題を
自分でやってみることが
いちばんチカラ💪がつくとおもうので

また、こうゆう問題あったら
率先してやってみまーす！
(о´∀`о)

ではでは
またあした！
(´꒳`)/

新刊出版しました👇
Wordショートカット力試しドリル

あなたはショートカットだけで
どこまでやれる？
|дﾟ)ﾁﾗ
この📕で修行すれば
マウスのドラッグ操作から解放されますよ✨
ヾ(o´∀｀o)ﾉﾜｧｰｨ♪

➊パソコンに関する📕 4冊

➋Kindle出版に関する📕 2冊

➌節約に関する📕 1冊


➍読書に関する📕 1冊

➎海外の方向けの📕 3冊


気になる本があれば
試し読みだけでも♪
(´▽｀)

この記事が気に入ったらサポートをしてみませんか？