スキルアップ・問題解決なら、モーグにおまかせ！

いつもお世話になっております。
 
ネット上で公開されている転記のマクロについて自分なりに勉強しています。
分からないのは、変数Ａには行数だけでなく、データも含まれており、下記の順番で実行されていく
という理解であっているでしょうか。（大まかな流れです。）
 
�@　転記元シートの対象データ（全体）を選択
�A　�@の２行名から最終行までを選択し変数Ａに格納する　※最終行を６と想定。
�B　転記先シートのＢ列の最終行（１,２）を取得し、それを１行下げる（２,２）
�B' �Bを（"２：６",２）にリサイズ（拡大）し変数Ａの値を代入
�C　転記元ファイル名を代入する　
 
Sub TESTマクロ()
   
  Dim A, B, C
  Set B = ThisWorkbook.Worksheets("Sheet1")
   
  'フォルダ内のブック名を取得
  C = Dir(ThisWorkbook.Path & "\TEST\*")
   
  Do While C <> ""
    'ブックを開く
     Workbooks.Open ThisWorkbook.Path & "\TEST\" & C
     
    'データ部分を取得
    With ActiveWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion　　�@
      A = .Rows("2:" & .Rows.Count)　�A
       
    End With
     
    'データを入力
    B.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Resize(UBound(A, 1), 2) = A　　�B
    'ブック名を入力
    B.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(UBound(A, 1)) = ActiveWorkbook.Name　�C
     
    ActiveWorkbook.Close False 'ブックを閉じる
    C = Dir() '次のブック名を取得
   
  Loop
   
End Sub
 
 

どこのサイトを参考にされたか提示できますか？
どうしてもということはありませんが、参考までにということです。

CurrentRegion は データだけではなく、書式設定や、罫線を設定されたセルを含みます。
 

引用:
B.Cells(Rows.Count, "B")

> 分からないのは、変数Ａには行数だけでなく、データも含まれており、
> 下記の順番で実行されていくという理解であっているでしょうか。
 
OKかと思いますが、表現だけの話です。
 
A = .Rows("2:" & .Rows.Count)
は
A = .Rows("2:" & .Rows.Count).Value
の省略形ですから、その値を持つ配列です。
配列の大きさを見ることで行数はわかりますが、
それは行数が含まれているとは言わないかもしれません。
データが含まれているというか、データ(値)そのものですね。
Rangeオブジェクトとの差異は理解されているとは思いますが。
 
内容の妥当性は、実行結果で検証することもできると思います。
 
なお、
Dim A, B, C
と言った変数の使い方は推奨されません。もっと内容を表す変数のほうがよいでしょう。
変数のネーミングもコードの分かりやすさにつながるので大切です。
説明のためにわざわざ変更されたのか、
元の記事がそうなっているのか知りませんが。（出所を尋ねたのはそのため）
 
また適切な型宣言をすべきです。
Dim B
ではなく、
Dim ws As Worksheet
のように。
 
取り急ぎ気づいた点をコメントしました。

引用:

  C = Dir(ThisWorkbook.Path & "\TEST\*")

引用:

�B' �Bを（"２：６",２）にリサイズ（拡大）し変数Ａの値を代入

これ、本当ですか？
　↓

引用:
CurrentRegion は データだけではなく、書式設定や、罫線を設定されたセルを含みます。

Sub TEST()
    With ThisWorkbook.Worksheets.Add
        .Range("A1:B3").Value = 1
        .Range("A1:B100").Interior.Color = vbYellow '書式設定
        
        Debug.Print .Range("A1").CurrentRegion.Address '→$A$1:$B$3
    End With
End Sub

半平太 さんの引用:
これ、本当ですか？
　↓

引用:
CurrentRegion は データだけではなく、書式設定や、罫線を設定されたセルを含みます。