アンケート調査票を簡単につくために、下のようなマクロを教えていただいたのですが、もとデータ項目の参照範囲がセルのB5より上にあるもの(空白の場合も)も項目としてしまっているようなので、どこを手直しすればいいのか、すみませんが教えてください。
Sub test()
'定数の設定
Const strInputSheet As String = "Sheet1"
Const lngInputRow As Long = 5
Const lngInputCol As Long = 2
Const strOutputSheet As String = "Sheet2"
Const lngOutputCol As Long = 3
Const lngOutputRow As Long = 4
Const strMessageA As String = " は "
Const strMessageB As String = " に対してどの位影響があると思いますか?"
'定義
Dim lngMaxRow As Long
Dim lngCountA As Long
Dim lngCountB As Long
Dim strA As String
Dim strB As String
Dim lngRow As Long
'項目数を把握
Sheets(strInputSheet).Select
Cells(ActiveSheet.Rows.Count, lngInputCol).Select
Selection.End(xlUp).Select
lngMaxRow = Selection.Row 'B列のデータ最終行を取得
lngRow = lngOutputRow '出力開始行の設定
'項目Aをなめる
For lngCountA = lngInputRow To lngMaxRow
strA = Cells(lngCountA, lngInputCol).Value '項目Aの取得
'項目Bをなめる
For lngCountB = 1 To lngMaxRow
If lngCountA <> lngCountB Then '項目Aと項目Bが同じときはここは処理しない
strB = Cells(lngCountB, lngInputCol).Value '項目Bを取得
Sheets(strOutputSheet).Cells(lngRow, lngOutputCol).Value = strA & strMessageA & strB & strMessageB '文字列を結合
lngRow = lngRow + 1 '改行する
End If
Next lngCountB
Next lngCountA
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) Sub 分けてソートして貼り付ける() Dim srcSheet As Worksheet Dim 6 2023/08/04 19:57
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Access テキスト型に対する指定...
-
エクセルグラフの凡例スペース
-
Oracle 2つのDate型の値の差を...
-
Joy To Keyのマウスやキーボー...
-
2行目を表示できますか?
-
DBのタイプの指定とサイズにつ...
-
VBAで複数の数式セルを最終行ま...
-
SUBSTRING 関数に渡した長さの...
-
ブラウザの「戻る」ボタンは何...
-
skypeに問い合わせるとき...
-
APN設定について教えていただけ...
-
空白をそのままインポートする...
-
BIOSでAHCIに設定したいが、項...
-
Excelで空白以外の値がある列の...
-
Accessレポートで特定条件で改...
-
セルの右クリックで出る項目を...
-
必須入力項目と入力必須項目
-
スティックパリティの役割
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
セルの右クリックで出る項目を...
-
Access テキスト型に対する指定...
-
SUBSTRING 関数に渡した長さの...
-
Accessで数値型にNULLをInsert...
-
APN設定について教えていただけ...
-
エクセルグラフの凡例スペース
-
ORACLEでLONG項目からCHAR項目...
-
複数のレコードを1つのレコード...
-
空白をそのままインポートする...
-
アンドロイド おサイフケータイ...
-
VBAで複数の数式セルを最終行ま...
-
access2000:フォームで入力し...
-
株に関する用語集
-
他テーブルで一致する列から名...
-
必須入力項目と入力必須項目
-
BIOSでAHCIに設定したいが、項...
-
datファイルからaccessにインポ...
おすすめ情報