VBAで文字列を結合

A列に文字列、B列に数字が入っています。
A列、B列とも空欄の場合があります。
行数は10〜1000くらいです。
同じ行のC列に、
A列&"(n="&B列&")"を、
A列とB列両方に入っている時だけ、
表示したいのですが、
お教えいただけませんでしょうか。
例:
A B C
1 全体 300 全体(n=300)
2 男性
3 150

No.1 ベストアンサー 回答者： Hypnomatic 回答日時： 2016/02/12 21:28

A列に入力してある最終行までループするマクロです。

Sub sample()

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> "" And Cells(i, 2) <> "" Then _
Cells(i, 3) = Cells(i, 1) & "(n=" & Cells(i, 2) & ")"
Next

End Sub


なお、VBAでなくても下記関数にて対応は可能です。
C列全体を選択し、Ctrl+Enterで確定

=IF(AND(A1<>"",B1<>"")=TRUE,A1&"(n="&B1&")","")

この回答へのお礼

ありがとうございます！関数も助かりました！

お礼日時：2016/02/12 22:46