
No.1ベストアンサー
- 回答日時:
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&")","")
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
URLのリンク切れをマクロを使っ...
-
VBAで、特定の文字より後を削除...
-
Worksheets メソッドは失敗しま...
-
SetDlgItemTextの使い方について
-
VBAのFind関数で結合セルを検索...
-
エクセルで行を挿入し、小計、...
-
VBAで、離れた複数の列に対して...
-
複数の列の値を結合して別の列...
-
【VBA】2つのシートの値を比較...
-
vba 2つの条件が一致したら...
-
Application.Max
-
DataGridViewに空白がある場合...
-
C# dataGridViewの値だけクリア
-
☆エクセル マクロ 範囲の値を上...
-
VBA: 2列のリストボックスの2列...
-
エクセルVBA、特定条件で行を追加
-
エクセル 2つの表の並べ替え
-
マクロ実行後に別シートの残像...
-
Excel UserForm の表示位置
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Cellsのかっこの中はどっちが行...
-
Worksheets メソッドは失敗しま...
-
vba 2つの条件が一致したら...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
IIF関数の使い方
-
VBAのFind関数で結合セルを検索...
-
Changeイベントでの複数セルの...
-
VBA 何かしら文字が入っていたら
-
【VBA】2つのシートの値を比較...
-
DataGridViewに空白がある場合...
-
VBAで、特定の文字より後を削除...
-
URLのリンク切れをマクロを使っ...
-
エクセル 2つの表の並べ替え
-
VBAを使って検索したセルをコピ...
-
VBAコンボボックスで選択した値...
-
VBAでのリスト不一致抽出について
-
複数csvを横に追加していくマク...
-
C# dataGridViewの値だけクリア
-
データグリッドビューの一番最...
おすすめ情報