Excelで質問です！ 現在マクロを勉強中の初心者です。 以下のような表から、会社名が空白のもの以外

Excelで質問です！
現在マクロを勉強中の初心者です。

以下のような表から、会社名が空白のもの以外で、NOと会社名だけ別のシート(c列に会社名、d列にNO)にコピーしたいのですが、
うまくいかず、、
教えていただきたいです！


【シート名:入力シート】コピー元
A B C Ｄ
NO 内容　　担当　　会社名
1 ○○○ あ　　　か
2 ☆☆☆ 　　　
3 ♪♪♪ う　　　け
…

【シート名:会社名一覧表】コピー先
A Ｂ　　　　C D
種別番号　日付　　会社名　　NO
か　　　1
　　　　　　　　　　け 3

No.2 ベストアンサー 回答者： t_fumiaki 回答日時： 2022/06/14 12:37

項目名が違う部分は無視するとして。

Dim SH1 As Worksheet
Dim SH2 As Worksheet
Set SH1 = Worksheets("入力シート")
Set SH2 = Worksheets("会社名一覧表")

END1 = SH1.Range("A65536").End(xlUp).Row

Cnt2=1

For Cnt1 = 2 To END1

IF(SH1.Range("D" & Cnt1).Value <> "" then
　Cnt2=CNT2+1
　SH2.Range("C" & Cnt2).Value=SH1.Range("D" & Cnt1).Value
　SH2.Range("D" & Cnt2).Value=SH1.Range("A" & Cnt1).Value
ENDIF

Next Cnt1

この回答へのお礼

ありがとうございます！

項目名が違う部分は空白のままで使用する予定でした！

お礼日時：2022/06/14 12:58

No.1 回答者： t_fumiaki 回答日時： 2022/06/14 12:25

項目名が違う部分には一体何をいれるのですか？？？

シート名:入力シート
NO/内容/担当/会社名

シート名:会社名一覧表
種別番号/日付/会社名/NO