Rangeで複数指定するやり方

Question

前提・実現したいこと

excelでシートから値をとってきて別ブックに値を書き込もうとしているのですが、
F19に年I19に月K19に日が入っており、
それをTourokuStrという変数の中に一つにして入れたいのですが、
年しか取ってきません。
3つ取ってきたいのですがどのように指定すればいいのでしょうか？

該当のソースコード

 Dim TourokuStr As String
    TourokuStr = readSheet.Range("F19,I19,K19")
    MsgBox TourokuStr
    
    If TourokuStr = "" Then
        writeSheet.Range("I1").Value = ""
        
    Else
        writeSheet.Range("I1").Value = TourokuStr
    
    End If
    

Answer 1

Range型は、セル範囲を格納する型です。
単一のセルを格納することも、複数のセルを格納することもできます。

複数のセルが格納された変数から値(Range.Value)を取得すると、指定範囲内で先頭のセルから値が取得されます。
このため年（F19セル）の内容が返されていると思います。

今回は範囲内にあるセルの文字列をすべて連結したいということですよね。

ワークシート上で文字列連結するなら=CONCATENATE(F19, I19, K19)という式で実現できます。
VBAではCONCATENATE関数は使えませんので、セルをひとつずつ取り出して連結するのが一般的です。

    Dim TourokuStr As String
    Dim c As Range
    
    '範囲内のセルを一つずつ取出して文字列連結
    For Each c In readSheet.Range("F19, I19, K19")
        TourokuStr = TourokuStr & c.Value
    Next
    
    MsgBox TourokuStr

参考になれば幸いです。

Comments

[jawa]

mts10806さんと内容ほぼ被りでした。。

[megune]

わかりやすくありがとうございました！

[m.ts10806]

jawaさん
私のはコードなくても調べられるかなとヒントのみの手抜き回答ですので…

Answer 2

Rangeは範囲指定なので返すのは通常Rangeオブジェクトのはずです。
For Eachで回して.Valueを文字列結合するか、いっそのこと1つ1つ.Valueを取得して文字列結合しては。