まだ復旧しない様なので、全角でアップします。(後はそちらで対応してください。)


Ｓｕｂ　ｔｅｓｔ（）
　　　　Ｄｉｍ　Ｗｓ（１　Ｔｏ　３）　Ａｓ　Ｗｏｒｋｓｈｅｅｔ
　　　　Ｄｉｍ　ｉ　Ａｓ　Ｌｏｎｇ
　　　　Ｄｉｍ　ｒ（１　Ｔｏ　２）　Ａｓ　Ｒａｎｇｅ
　　　　Ｄｉｍ　ａＣｅｌｌ　Ａｓ　Ｒａｎｇｅ
　　　　Ｄｉｍ　ｄｉｃＴ（１　Ｔｏ　２）　Ａｓ　Ｏｂｊｅｃｔ
　　　　Ｄｉｍ　ｋｙ
　　　　Ｄｉｍ　Ｒｗ，　ａｄｒ（１　Ｔｏ　２）
　　　　
　　　　Ｓｅｔ　Ｗｓ（１）　＝　Ｗｏｒｋｓｈｅｅｔｓ（”Ａ”）
　　　　Ｓｅｔ　Ｗｓ（２）　＝　Ｗｏｒｋｓｈｅｅｔｓ（”Ｂ”）
　　　　Ｓｅｔ　Ｗｓ（３）　＝　Ｗｏｒｋｓｈｅｅｔｓ（”Ｃ”）
　　　　
　　　　Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ　＝　Ｆａｌｓｅ
　　　　
　　　　Ｗｓ（３）．ＵｓｅｄＲａｎｇｅ．Ｏｆｆｓｅｔ（１）．ＣｌｅａｒＣｏｎｔｅｎｔｓ　’事前クリア
　　　　
　　　　Ｆｏｒ　ｉ　＝　１　Ｔｏ　２
　　　　　　　　Ｓｅｔ　ｄｉｃＴ（ｉ）　＝　ＣｒｅａｔｅＯｂｊｅｃｔ（”Ｓｃｒｉｐｔｉｎｇ．Ｄｉｃｔｉｏｎａｒｙ”）
　　　　　　　　
　　　　　　　　Ｗｉｔｈ　Ｗｓ（ｉ）
　　　　　　　　　　　　Ｓｅｔ　ｒ（ｉ）　＝　．Ｒａｎｇｅ（”Ｂ２”，　．Ｃｅｌｌｓ（．Ｒｏｗｓ．Ｃｏｕｎｔ，　”Ｂ”）．Ｅｎｄ（ｘｌＵｐ））
　　　　　　　　　　　　
　　　　　　　　　　　　Ｆｏｒ　Ｅａｃｈ　ａＣｅｌｌ　Ｉｎ　ｒ（ｉ）
　　　　　　　　　　　　　　　　Ｉｆ　ａＣｅｌｌ　＜＞　””　Ｔｈｅｎ
　　　　　　　　　　　　　　　　　　　　ｄｉｃＴ（ｉ）（ａＣｅｌｌ　＆　”，”　＆　ａＣｅｌｌ．Ｏｆｆｓｅｔ（０，　２））　＝　ａＣｅｌｌ．Ｒｏｗ
　　　　　　　　　　　　　　　　Ｅｎｄ　Ｉｆ
　　　　　　　　　　　　Ｎｅｘｔ　ａＣｅｌｌ
　　　　　　　　Ｅｎｄ　Ｗｉｔｈ
　　　　Ｎｅｘｔ　ｉ
　　　　
　　　　Ｆｏｒ　Ｅａｃｈ　ｋｙ　Ｉｎ　ｄｉｃＴ（２）
　　　　　　　　Ｉｆ　ｄｉｃＴ（１）．ｅｘｉｓｔｓ（ｋｙ）　＝　Ｆａｌｓｅ　Ｔｈｅｎ
　　　　　　　　　　　　Ｗｓ（２）．Ｃｅｌｌｓ（ｄｉｃＴ（２）（ｋｙ），　”Ａ”）．Ｒｅｓｉｚｅ（１，　１７）．Ｃｏｐｙ　Ｗｓ（３）．Ｃｅｌｌｓ（Ｒｏｗｓ．Ｃｏｕｎｔ，　”Ａ”）．Ｅｎｄ（ｘｌＵｐ）．Ｏｆｆｓｅｔ（２）
　　　　　　　　Ｅｎｄ　Ｉｆ
　　　　Ｎｅｘｔ　ｋｙ
　　　　
　　　　Ｆｏｒ　Ｅａｃｈ　ｋｙ　Ｉｎ　ｄｉｃＴ（１）
　　　　　　　　Ｉｆ　ｄｉｃＴ（２）．ｅｘｉｓｔｓ（ｋｙ）　Ｔｈｅｎ
　　　　　　　　　　　　
　　　　　　　　　　　　Ｒｗ　＝　ｄｉｃＴ（１）（ｋｙ）
　　　　　　　　　　　　ａｄｒ（１）　＝　Ｗｓ（１）．Ｎａｍｅ　＆　”！”　＆　Ｃｅｌｌｓ（Ｒｗ，　”Ｆ”）．Ｒｅｓｉｚｅ（１，　１２）．Ａｄｄｒｅｓｓ
　　　　　　　　　　　　ａｄｒ（２）　＝　Ｗｓ（２）．Ｎａｍｅ　＆　”！”　＆　Ｃｅｌｌｓ（ｄｉｃＴ（２）（ｋｙ），　”Ｆ”）．Ｒｅｓｉｚｅ（１，　１２）．Ａｄｄｒｅｓｓ
　　　　　　　　　　　　
　　　　　　　　　　　　Ｉｆ　Ｗｏｒｋｓｈｅｅｔｓ（”Ｃ”）．Ｅｖａｌｕａｔｅ（”ＡＮＤ（”　＆　ａｄｒ（１）　＆　”＝”　＆　ａｄｒ（２）　＆　”）”）　＝　Ｆａｌｓｅ　Ｔｈｅｎ
　　　　　　　　　　　　　　　　Ｗｓ（１）．Ｃｅｌｌｓ（ｄｉｃＴ（１）（ｋｙ），　”Ａ”）．Ｒｅｓｉｚｅ（１，　１７）．Ｃｏｐｙ　Ｗｓ（３）．Ｃｅｌｌｓ（Ｒｏｗｓ．Ｃｏｕｎｔ，　”Ａ”）．Ｅｎｄ（ｘｌＵｐ）．Ｏｆｆｓｅｔ（２）
　　　　　　　　　　　　　　　　Ｗｓ（２）．Ｃｅｌｌｓ（ｄｉｃＴ（２）（ｋｙ），　”Ａ”）．Ｒｅｓｉｚｅ（１，　１７）．Ｃｏｐｙ　Ｗｓ（３）．Ｃｅｌｌｓ（Ｒｏｗｓ．Ｃｏｕｎｔ，　”Ａ”）．Ｅｎｄ（ｘｌＵｐ）．Ｏｆｆｓｅｔ（１）
　　　　　　　　　　　　Ｅｎｄ　Ｉｆ
　　　　　　　　Ｅｎｄ　Ｉｆ
　　　　Ｎｅｘｔ　ｋｙ
　　　　
　　　　Ｗｓ（３）．Ｒｏｗｓ（２）．Ｄｅｌｅｔｅ　’不要行を削除
　　　　Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ　＝　Ｔｒｕｅ
　　　　
　　　　ｄｉｃＴ（１）．ＲｅｍｏｖｅＡｌｌ
　　　　ｄｉｃＴ（２）．ＲｅｍｏｖｅＡｌｌ
Ｅｎｄ　Ｓｕｂ

＞ 説明とは
＞ 上記文章にある
＞ ４．Ｃシートへの書き出し事由
＞ の以下の事です・・
通常の「仕様説明」であると理解しました。

ただ、現在、コードをアップしようとすると、
＞Forbidden
＞The server refuse to browse the page.・・・
とか言われて拒否されるので（この現象は時々発生します。困ったものです）
回復したらアップする予定です。

＞（説明あり）
説明あり、とはどう言う意味なんですか？

普通、質問には説明があるのが相場なのですが。。

1．Aｼｰﾄ(今年）												
行　A	　B	C　　　D　　E　　　F　　　G　　 Ｈ   Ｉ	      J	     K
1　地区　番号　名前　年月　 他　金額1　金額2　金額3　金額4　 金額5　・・	
2　　ｗ　101   あ　 202404　・　　1	　3	5	6	8　　　・	
3　　ｗ　101   あ　 202405　・	  2	　4	6	7	9　　　・	
4　　ｗ	 101   あ   202407　・	　3	　5	7	8	10　 　・
5    ｗ	 104   え   202405　・	　2	　4	6	7	9　　　・	
6　　ｗ  108   た   202406  ・	  1	  5	7	8	10   　・  		


2．Ｂｼｰﾄ(去年）										
行  A	B    C	  D	E     F	     G    Ｈ	 Ｉ	 J      K
1 地区 番号 名前 年月　 他　金額1  金額2 金額3 金額4	金額5 ・・
2 ｗ	101 あ	202404	・　　1	    3　　 5	　 6	　8　 ・・
3 ｗ	101 あ	202405	・　　2     4　　 6　　    7	　9　　・・	
4 ｗ	101 あ	202407	　　　3	    5　　 7	　 8	　10　　・・	
5 ｗ	107 き	202404	・　　3	    5　　 7　      8	  10　　・・	
6 ｗ	108 た	202406	　　　2	    5　 　7        8      10　　・


説明	
＊キー：番号＋年月
			
A,Bとも2行目のキーと金額	Ａ	＝	Ｂ	
A,Bとも3行目のキーと金額	Ａ	＝	Ｂ	
A,Bとも4行目のキーと金額	Ａ	＝	Ｂ	
Aの5行目のキー　　　 	        Ａ	有り	Ｂ	無し
Bの5行目のキー　　　　　	Ａ	無し	Ｂ	有り
A,Bとも6行目のキーと金額	Ａ	＜＞	Ｂ	金額がいずれか相違


3．Ｃ　差異（同じキーでの）シート出力結果
（ＡとＢとの差異出力：Aに無く又はA・Bで金額変更ある場合）										

行　A	　B	C　　D    E　　F  　　G	     Ｈ     I　　　J
1　地区 番号　名前　年月　他　金額1　金額2　金額3　金額4　金額5
2　ｗ	107   き　202404　・　 3　　　5	　　　7	　　　8    10
3  空白行にする										
4　ｗ	108   き　202406　・　１　　  5　　 　7	    　8　　10
5　ｗ	108   き　202406　・　 2　    5       7	      8	   10
								

						
説明						
２行目	Ａ	無し	Ｂ	有り		
				
４行目	Ａ	＜＞	Ｂ	キーが一致するも金額がいずれか相違		
５行目	Ａ	＜＞	Ｂ	キーが一致するも金額がいずれか相違		
											

４．Ｃシートへの書き出し事由																	
 ＊AｼｰﾄとＢｼｰﾄのキー（番号・年月）を比較して					
　・AｼｰﾄとＢｼｰﾄのキーが一致して全ての金額も一致すればＣｼｰﾄには書き出さない																				

　・Aｼｰﾄのキーと同じキーがＢｼｰﾄに無ければＣｼｰﾄには書き出さない																				
　・AｼｰﾄにＢｼｰﾄと同じキーが無ければＢシートの該当行内容をＣｼｰﾄには書き出す
　（　CｼｰﾄにBｼｰﾄの該当データをBｼｰﾄの１7列まで書き出す）																				

　・AｼｰﾄとＢｼｰﾄのキーが一致しても金額のいずれか相違していれば
　　Aｼｰﾄ・Bｼｰﾄの１7列目まで書き出す																				
																				
＊なお、書き出し結果は、
　相違要因の結果毎に1行毎、
　空白を設けてわかりやすいようにする						

＊Aｼｰﾄ・Bｼｰﾄとのキー順に並べ替え済みです														
																				

どなたか上記のようなＶＢＡ（コーディング）について																				
ご記載頂ければ幸いです																				
よろしくお願いいたします																				

WIN１１です