変数に同じものが何度も入ってきてしまう

Question

変数excecに文字列を入れているのですが、select caseすると,値はとれているのですが
そのあとに続けて最初のSELECT分から2回分、3回分となってしまいます。
SERECT・・・・・・SELECT・・・・・SELECT・・・
select case がいけないのでしょうか？
If文でやっていった方がよいのでしょうか？

Sub SQL抽出()
Dim n As String
Dim excec As String

 Set wb = ThisWorkbook
 Set sh = wb.Worksheets("条件")
 Set sql = wb.Worksheets("SQL")
 
 r = sh.Range("C30").End(xlToRight).Column
 
 excec = ""
 excec = excec & "SELECT"
 excec = excec & "count(distinct km_customer.cust_cd) "
 excec = excec & "FROM "
 excec = excec & "dba.km_customer INNER JOIN dba.km_member ON (km_customer.kigyo_cd=km_member.kigyo_cd and km_customer.cust_cd=km_member.cust_cd) "
 excec = excec & "WHERE "
 excec = excec & "km_customer.cust_cd "
 
    For i = 3 To r
        excec = excec & sh.Cells(32, i).Value
        Debug.Print excec
        n = sh.Cells(30, i).Value
        Select Case n
            Case "1"
                excec = excec & " (select member_cd from " & "#login" & ")"
            Case "2"
                excec = excec & " (select member_cd from " & "#tabtouch" & ")"
            Case "3"
                excec = excec & " (select member_cd from " & "#age" & ")"
            Case "4"
                excec = excec & " (select member_cd from " & "#cate" & ")"
            Case "5"
                excec = excec & " (select member_cd from " & "#cate1" & ")"
            Case "6"
                excec = excec & " (select member_cd from " & "#sku" & ")"
            Case "7"
                excec = excec & " (select member_cd from " & "#sku1" & ")"
        End Select
        
        excec = excec & excec & sh.Cells(31, i).Value
　　　　Debug.Print excec
    Next
    
  sql.Range("B9").Value = excec
 
 
End Sub

Answer 1

excec = excec & excec & sh.Cells(31, i).Valueの行が原因ではないでしょうか？
これの行を実行すると、excecに入っている内容が2回繰り返された後にsh.Cells(31, i).Valueの内容を追加した文字列がexcecにセットされますが、これはあなたが意図した動作ではないように思えます。

Comments

[Naoko_Coco]

ありがとうございます。
その通りです。
気づかなかった～

Answer 2

excec = excec & excec & sh.Cells(31, i).Value

この行ですね。
excecを2回連結してしまっています。

余談ですが、以下の行、SELECTのあとに空白が必要です。
エラーにならないんですよね？不思議です。

 excec = excec & "SELECT"

Comments

[Naoko_Coco]

どこで書き間違えたんだろう？ｗ
その通りです。
うまくいきました！
因みに、余談、エラーになります。（笑）
2回連結に悩まされてて気づきませんでしたｗ