2022/09/27

ListObjectの絞り込みデータの配列化

ListObjectについて、下記のようなシリーズで説明しています。
　・ListObjectの作成と概要
　・ListObjectの並べ替え
　・ListObjectの絞り込み
　・ListObjectの絞り込み解除
　・ListObjectの絞り込みデータの配列化　　←今回
　・ListObjectのデータ追加
　・ListObjectのデータ変更
　・ListObjectのデータ削除

今回は、ListObjectオブジェクトを絞り込んだ後の「データ配列化」について説明します。

１．絞り込まれたテーブルのデータ処理（手動）

何らかの条件で絞り込んだ状態のテーブルが図１の右側だとします。タイトル行は１行目で、データ行は３～４行目、および６行目と不連続行が抽出されています。

図１別窓

この絞り込んだデータを手動で活用するのであれば、「絞り込んだデータのみの状態」にした方が使い易いはずです。そのために通常は、図２のように「テーブル範囲を選択」→「コピー」→「（他のシート等に）貼り付け」することで、「抽出された部分だけ」を貼り付けてから活用することになると思います。

図２別窓

この、単純に「コピーしただけで、絞り込んだデータのみ」がコピーされるという特徴は、テーブルでは無く「オートフィルター」自体が持つ機能のようです。実際にテーブルでは無く、オートフィルターだけを適用したセル範囲でも、絞り込んだデータのみがコピーされます。 しかしフィルターでもテーブルでも無い状態では、「非表示の行（≒ 除外した行）」を含めて選択・コピーすると、「非表示のデータもコピー」されてしまうことになります。 もし「非表示行をコピー対象外」にしたいのなら、非表示行を含めたセル範囲を選択後、Excel上部のリボンの「ホーム」タブ→「編集」グループ→「検索と選択」の中の「条件を選択してジャンプ」をクリックして表示される「選択オプション」で、「可視セル」のオプションボタンを選択し「OKボタン」をクリックする必要があります。 但し「非表示行を対象外」としてコピーできる条件が存在します。条件としては以下の通りです。 　・同じシート内にオートフィルターを適用したセル範囲がある。 　・そのオートフィルターで、現在絞り込みをしている状態である。 　・テーブル化している範囲は、絞り込み有無に関わらず条件の範囲外。 この現象の説明はどこのサイトにも見当たらないので、仕様では無くバグかもしれません。ですので、非表示行を対象外にしたいときには「選択オプションで可視セルを選択」という手順を省かないようにした方が良いと思います。

２．絞り込まれたテーブルのデータ処理（マクロ）

今回は絞り込まれたデータを「配列」に取り込む方法を考えます。必要なデータが配列化できれば、その後自由にプログラム内で活用できます。なお、今回はタイトル行もデータ内に含めることにします。

配列化する手段として、まず「手動で他シートにコピペ」したデータをそのまま配列にする方法（下記のNo.1）を思いつくと思いますが、他にも色々考えられます。
　１．絞り込まれたテーブルをコピー→他シートにペーストし、セル範囲を配列化
　２．テーブルの可視セルのデータを配列化
　３．テーブルをコピーし、クリップボード上のデータをDataObjectで配列化
以下で１つずつ実コードを示しながら説明していきます。

２－１．絞り込まれたテーブルをコピー→他シートにペーストし、セル範囲を配列化　その１

図２で示した「手動でのコピペ」に相当するのが図３のコードです。別のプロシージャから呼び出す「関数プロシージャ」とし、引数として操作するテーブルを受け取り、戻り値として配列を返すものです。

0. '==========　⇩(1)　コピペ範囲を配列化１　============
1. Function TableArray_1(T As ListObject) As Variant
2. 　Dim TempSheet As Worksheet 　　　 '←貼り付け先のシート
3. 　Set TempSheet = Sheets("sheet2")
5. 　TempSheet.UsedRange.Clear
7. 　T.Parent.Activate
8. 　T.Range.Select
9. 　Selection.Copy
10. 　TempSheet.Range("a1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
12. 　Application.CutCopyMode = False
14. 　TableArray_1 = TempSheet.Range("a1").CurrentRegion
15. End Function

図３別窓

０３行目「Set TempSheet = Sheets("sheet2")」では、テーブルのデータを貼り付ける先のワークシートを指定しています。システムにする場合は、貼り付け先シートは様々な場面で使用するでしょうから、重複コードとならないように「宣言部などで宣言」するものだと思います。

０５行目「TempSheet.UsedRange.Clear」では、貼り付け先シートの古いデータをクリアしています。UsedRangeを使っていますので、ユーザーが貼り付け先データの一部を削除したとしても、全てのデータが削除されることになります。
またここではClearメソッドを使い、書式を含めた全てを削除しています。これは例えば、日付データを貼り付けた後にClearContentsで値だけを削除（書式はそのまま残る）し、その後「数値」を貼り付けてしまうと「日付型」として表示されてしまうのを防ぐためです。貼り付けるデータ型が一定であれば、ClearContentsで値だけを削除してもOKと思います。

０７行目「T.Parent.Activate」では、コピー元であるテーブルのあるシートをアクティブにしています。
０８行目「T.Range.Select」では、テーブルのタイトル行を含めた全範囲を選択しています。図２の左側の状態になります。
このSelect文を実行する時に「Selectするシートがアクティブになっていないとエラー」が発生してしまいますので、その前に０７行目でシート移動をしています。
０９行目「Selection.Copy」では、選択した範囲をコピーしており、これは図２の中央の状態になります。選択しているのはテーブルの全範囲ですが、Copyされるのは「可視セル」である「タイトル行＋抽出された行」のみとなります。

１０行目「TempSheet.Range("a1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats」では、貼り付け先の「A1セル」を左上端とし、PasteSpecialメソッドを使用してコピーしたデータの「値と数式の書式」を貼り付けています。
PasteSpecialメソッドのパラメータは以下の通り４つあり、全て省略可能なパラメータです。

パラメータ	データ型	内容
Paste	XlPasteType（図５）	貼り付けの範囲
Operation	XlPasteSpecialOperation（図６）	貼り付け時の演算方法
SkipBlanks	Variant（True or False）	空白セルの無視有無（True = 空白セルを無視。既定値=False）
Transpose	Variant（True or False）	行/列の転置有無（True = 行列を入れ替え。既定値=False）

図４別窓

なお、０９～１０行目を合わせて「Selection.Copy TempSheet.Range("a1")」とすると、セル範囲が簡単に貼り付けられます。しかしテーブルを貼り付ける際には注意が必要です。 コピー元のテーブルが「絞り込まれていない」状態の場合に「Selection.Copy + 貼り付け先」のコードを実行すると、貼り付け先に「テーブルとして貼り付け」がされてしまいます。テーブル名は「元のテーブル名＋追番」のような名前が付くようです。 データは問題なく取得できるので配列化には問題無いのですが、０５行目で旧データを削除する時には「テーブルの削除・解除」の操作が必要になってしまいます。なお絞り込まれている場合は、元のテーブルの書式貼り付け先がテーブルにはならないので「絞り込み有無により、元データクリアのコードを変える」必要が出てきてしまい、返って面倒になります。 ちなみにコピー元のテーブルが「絞り込まれている」場合に「Selection.Copy + 貼り付け先」で貼り付けをすると、可視セル行のみが貼り付きますが、一緒に「背景色や文字色の書式」も貼り付きます。こちらもデータを配列化するには問題ありませんが、データを消すときにClearContentsを使うと書式が残ってしまいます。

１０行目のPasteSpecialでは、パラメータとしてPasteのみを使用しています。Pasteパラメータは図５（XlPasteType型）の中から選択することになり、今回は「xlPasteValuesAndNumberFormats（値=12）」を使用し「値と数値の書式」を貼り付けることで、日付は日付型、数値は数値型で表示されるようにしています。

XlPasteType列挙型

定数	値	内容
xlPasteAll	-4104	全てを貼り付け（既定値）
xlPasteFormats	-4122	コピーしたソースの形式を貼り付け
xlPasteFormulas	-4123	数式を貼り付け
xlPasteComments	-4144	コメントを貼り付け
xlPasteValues	-4163	値を貼り付け
xlPasteValidation	6	入力規則を貼り付け
xlPasteAllExceptBorders	7	輪郭以外の全てを貼り付け
xlPasteColumnWidths	8	コピーした列の幅を貼り付けます。
xlPasteFormulasAndNumberFormats	11	数式と数値の書式を貼り付け
xlPasteValuesAndNumberFormats	12	値と数値の書式を貼り付け
xlPasteAllUsingSourceTheme	13	ソースのテーマを使用して全てを貼り付け
xlPasteAllMergingConditionalFormats	14	全てを貼り付け、条件付き書式をマージ

図５別窓

なお今回は指定しませんが、「Operationパラメータ」には図６（XlPasteSpecialOperation型）の中から選択します。

XlPasteSpecialOperation列挙型

定数	値	内容
xlPasteSpecialOperationNone（= xlNone）	-4142	貼り付け操作で計算は行われない（既定値）
xlPasteSpecialOperationAdd	2	コピーされたデータは、コピー先セルの値に追加される
xlPasteSpecialOperationSubtract	3	コピーされたデータは、コピー先セルの値から減算される
xlPasteSpecialOperationMultiply	4	コピーされたデータは、移動先セルの値に乗算される
xlPasteSpecialOperationDivide	5	コピーされたデータは、移動先セルの値を分割する

図６別窓

様々な貼り付け方法は、「ホーム」タブ→「クリップボード」グループ→「貼り付け」ボタンから選択できますが、それらはPasteSpecialメソッド、Pasteメソッドを使ってマクロ側からも操作できます。一部になりますが、対応表を図７に示します。

図７別窓

PasteSpecialメソッドのパラメータの既定値は「Operation = xlNone（xlPasteSpecialOperationNone）」「SkipBlanks = False」「Transpose = False」です。図７でも分かるように基本的な貼り付けは、「Pasteパラメータの設定」のみでほぼ網羅できるとも言えそうです。
Excelリボンの貼り付けメニューの最下段の「形式を選択して貼り付け」をクリックすると、「形式を選択して貼り付け」ダイアログが現れます。その中のオプションボタンとチェックボックスを組み合わせる事で様々な貼り付けが可能です。このような複雑な貼り付けを行う時にPaste以外のパラメータを使う、と覚えておいてもよいと思います。

データの貼り付けは終わったので、１２行目「Application.CutCopyMode = False」で、コピーモードを終了させます。
１４行目「TableArray_1 = TempSheet.Range("a1").CurrentRegion」では、シートに貼り付けた範囲のデータを関数戻り値にして、関数プロシージャを終了します。
なお、セル範囲のデータを一括で配列化しているので、出来上がる配列のインデックスは行／列とも「１」スタートとなります。

２－２．絞り込まれたテーブルをコピー→他シートにペーストし、セル範囲を配列化　その２

図３のコードは「手動でのコピペ」を再現したものでした。しかし図３の０７行目「T.Parent.Activate」で「テーブルの存在するシートをアクティブ」にする必要があるので、システムによってはバタバタと画面が切り替わったりしてしまいます。対策として「Application.ScreenUpdating = False」で画面更新を停止させればバタバタは無くなりますが、これでは単に「マクロ記録をVBAにしただけ」で機械に操られているようで面白くありません。

そこで改善したコードが図８です。改善点はテーブルを選択する時にコピー元を直接アクティブにするのでは無く、間接的にコピー元を指定している点です。但し直接セル選択をしていないので、テーブル全体をコピーすると「非表示の行もコピーされてしまう」ため、「可視セルのみをコピー」する必要があります。

20. '==========　⇩(2)　コピペ範囲を配列化 2　============
21. Function TableArray_2(T As ListObject) As Variant
22. 　Dim TempSheet As Worksheet 　　　 '←貼り付け先のシート
23. 　Set TempSheet = Sheets("sheet2")
25. 　TempSheet.Range("a1").CurrentRegion.Clear
27. 　T.Range.SpecialCells(xlCellTypeVisible).Copy
28. 　TempSheet.Range("a1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
30. 　Application.CutCopyMode = False
32. 　TableArray_2 = TempSheet.Range("a1").CurrentRegion
33. End Function

図８別窓

２５行目「TempSheet.Range("a1").CurrentRegion.Clear」では、データの貼り付け範囲をクリアしています。図３の０５行目では「UsedRange」を使いましたが、ユーザーが触れる可能性の無いシートでしたら、この「CurrentRegion」でも良いと思います。

２７行目「T.Range.SpecialCells(xlCellTypeVisible).Copy」では、テーブルのタイトルを含めた範囲内の「可視セル」の部分をコピーしています。ここで使っている「SpecialCellsメソッド」には、図９のように２つのパラメータがあります。

SpecialCellsメソッド

パラメータ	データ型	内容
Type	XlCellType （図１０）	取得するセルの種類（必須）
Value	XlSpecialCellsValue （図１１）	Typeが｢xlCellTypeConstants｣｢xlCellTypeFormulas｣の場合に､ その種類を指定(複数の場合は加算可)

図９別窓

２７行目のコードのカッコ内が第一引数であるTypeパラメータで、今回は可視セルを表す定数「xlCellTypeVisible」を使用しています。図１０のように全部で１０個の内から選択します。

XlCellType列挙型

定数	値	内容
xlCellTypeFormulas	-4123	数式が含まれているセル
xlCellTypeComments	-4144	コメントが含まれているセル
xlCellTypeAllFormatConditions	-4172	表示形式が設定されているセル
xlCellTypeSameFormatConditions	-4173	同じ表示形式が設定されているセル
xlCellTypeAllValidation	-4174	条件の設定が含まれているセル
xlCellTypeSameValidation	-4175	同じ条件の設定が含まれているセル
xlCellTypeConstants	2	定数が含まれているセル
xlCellTypeBlanks	4	空白セル
xlCellTypeLastCell	11	使われたセル範囲内の最後のセル
xlCellTypeVisible	12	すべての可視セル

図１０別窓

なお、Typeパラメータに｢xlCellTypeConstants｣または｢xlCellTypeFormulas｣を使用した場合には､更に図１１のValueパラメータで細かな種類を指定できます。複数の項目を同時に指定可能で、その場合は定数を「＋」でつなげるか、値を加算して指定します。

XlSpecialCellsValue列挙型

定数	値	内容
xlNumbers	1	数値のあるセル
xlTextValues	2	テキストのあるセル
xlLogical	4	論理値のあるセル
xlErrors	16	エラーのあるセル

図１１別窓

例えば
「セル範囲.SpecialCells(xlCellTypeConstants, 1 + 2 ).Select」
とすれば、セルに直接入力された値が数値か文字列であるセルを選択することになりますし、また
「セル範囲.SpecialCells(xlCellTypeFormulas, 4 ).Select」
とすれば、数式でその戻り値がTrueかFalseであるセルを選択することになります。
なお「xlErrors（エラーのあるセル）」のxlCellTypeConstants（直接入力値）が何に当たるのか、考えてみましたが思い当たりませんでした。

２７行目で「テーブルの可視セルの部分」をコピーした後は、図３のコードと全く同じです。
２８行目で貼り付け先シートに「値と数式の書式」を貼り付け、３０行目でコピーモードを解除しています、
そして３２行目で、貼り付けたデータを配列にし、関数プロシージャの戻り値にしています。

なお、図３の０８行目「T.Range.Select」の、Rangeの代わりに「DataBodyRange」を使って「タイトル行を含めずにデータ部分のみを配列化」する方法も考えられますが、色々なデメリットが考えられます。 １つ目は「タイトルとデータを切り離し」してしまうと、テーブルの設計を変更した際にはプログラムをすべて見直す必要が出てきます。また、絞り込んだデータをそのままワークシートに貼り付けてユーザーに見せるようなシステムでは、データ内容に対して表示タイトルが合っているかの確認が必要になります。 ２つ目は、テーブルの絞り込みの結果「全データが非表示」だった場合です。テーブルを使っている場合、全データが非表示の時にタイトルを含めない「非表示部分のみ」を選択すると、何故か「全データを選択」することになってしまうのです。 普通の感覚なら、全行が非表示であれば、コピー時に「選択されていません」などと警告されたり、貼り付け時に「貼り付けるものがありません」などと怒られそうな気がするのですが、テーブルの場合は全データを取得してしまうのでエラーは出ません。この現象は、「ListObjectのデータ変更」や「ListObjectのデータ削除」の時にも悪い影響を与え、知らないでいると「全データ書き換え」や「全データ削除」と取り返しのつかない結果になってしまいます。 そのため「通常は非表示にしないタイトル行」を含めたテーブル全体を（DataBodyRange では無く Range を使って）選択する事で、間違った結果を得ないようにしています。 なお、もしデータだけを配列化したい場合には、貼り付け先からデータを取得する段階で「タイトル行を除いた処理」をすることで実現できます。 一方で図８の２７行目「T.Range.SpecialCells(xlCellTypeVisible).Copy」でRangeの代わりに「DataBodyRange」を使用すると、「全データが非表示」だった場合には「SpecialCells(xlCellTypeVisible)での可視セル」が１つも無いことになってしまい、エラーが発生します。このエラーを「絞り込みデータ＝ゼロ」の判断材料にして分岐処理することも１つの手法だと思います。

なお図３・図８とも、ワークシート上のセル範囲を一気に配列化していますので、出来上がる配列のインデックスは「１スタート」に固定されてしまうのも注意点の１つです。

２－３．テーブルの可視セルのデータを配列化　その１

上記のように、テーブルのデータを他のシートに貼り付けてから処理するのでは無く、直接テーブルのデータを検索し、可視セルのデータであれば配列に格納するのが図１２です。

40. '==========　⇩(3)　テーブルの可視セルのデータを配列化 1　============
41. Function TableArray_3(T As ListObject) As Variant
42. 　Dim buf() As Variant 　 '←戻り値とする一時的な配列
43. 　Dim i As Long 　　　　　 '←ｶｳﾝﾀ変数（配列の行位置）
44. 　Dim j As Long 　　　　　 '←ｶｳﾝﾀ変数（配列の列位置）
45. 　Dim k As Long 　　　　　 '←テーブルのデータ行＋タイトル行の全行数
46. 　Dim ColCnt As Long 　　 '←ﾃｰﾌﾞﾙの列数
48. 　ColCnt = T.HeaderRowRange.Count
50. 　For k = 1 To T.Range.Rows.Count
51. 　　If T.Range.Rows(k).Hidden = False Then
52. 　　　i = i + 1
53. 　　　ReDim Preserve buf(1 To ColCnt, 1 To i)
54. 　　　For j = 1 To ColCnt
55. 　　　　buf(j, i) = T.Range.Cells(k, j)
56. 　　　Next j
57. 　　End If
58. 　Next k
60. 　TableArray_3 = WorksheetFunction.Transpose(buf)
61. End Function

図１２別窓

４８行目「ColCnt = T.HeaderRowRange.Count」では、テーブルの列数を取得しています。「HeaderRowRange.Count」以外に「ListColumns.Count」や「AutoFilter.Filters.Count」を使ってもOKです。

５０行目「For k = 1 To T.Range.Rows.Count」では、カウンタ変数kをテーブルのタイトル行＋データ行の合計行数だけ回しています。
５１行目「If T.Range.Rows(k).Hidden = False Then」は、テーブルの変数kで指定した行位置（タイトル行も含んだ行位置。タイトル行が1となる）が非表示か可視行かを調べ、可視行の場合に以下の５２～５６行目を実行していきます。全データが非表示になってもタイトル行は可視ですので、少なくとも１回は実行されることになります。
なお、行が可視か非表示かの検査手段として、ここでは「Hiddenプロパティ」を使用しましたが、「行の高さ」を検査手段として「If Not T.Range.Rows(i).Height = 0 Then」としても同じです。

５２行目「i = i + 1」は、この関数の戻り値である配列の行番号ｉを１つ増やしています。変数ｉはLong型なので初期値はゼロですので、タイトル行のところで「１」になります。
５３行目「ReDim Preserve buf(1 To ColCnt, 1 To i)」は、４２行目で動的配列として宣言した変数bufのサイズを設定しています。可視行があるたびに配列のサイズを増やしていく都合上、最終次元の２次元目を「データ行数」にしていますので、形としては「行列が逆転」している配列となっています。そのため配列の１次元目は、不変のテーブルの列数ColCntに当てます。
なおReDimで配列を大きくしても、配列に既に格納したデータは消したくないので「Preserve指定」をしています。

５４行目「For j = 1 To ColCnt」では、カウンタ変数ｊをテーブルの列数分だけ回します。
５５行目「buf(j, i) = T.Range.Cells(k, j)」では、可視行のテーブルのデータを配列に格納します。行列が逆転している配列bufに代入しますので、buf(i, j)では無く、buf(j, i)となります。

行列が逆転している配列へのデータ格納が完了したら、６０行目「TableArray_3 = WorksheetFunction.Transpose(buf)」でTranspose関数を使って行列を戻してから、関数プロシージャの戻り値に設定します。

なお、この方式では以下のような注意点があります。
　１．絞り込み行がゼロ（＝１行も抽出されず）の場合、戻り値が１次元配列になる。
　２．データが元々無いテーブルの場合は、データ値にEmptyが入る。
　３．テーブルの日付データは、戻り値の配列内では文字列型に変換されてしまう。

１つ目は、配列bufに格納されるのがタイトル行だけになり、５８行目を終わった時点ではデータが存在する時と同じ２次元配列なのですが、６０行目のTranspose関数により、１次元配列に変換されてしまいます。
別な説明方法をすると「縦１列の配列」→Transpose関数→「横１行の配列」＝１次元配列　という感じです。
そのため関数の戻り値（配列）を処理する時に、次元数を確認してデータの有無を判断する必要が出てきます。

２つ目は、処理範囲をDataBodyRangeでは無くRangeとしているために、データが存在しないテーブルの場合はInsertRowRangeも含んでしまいます。そのため絞り込んでいない状態では、データ無し＝Emptyが配列に格納されます（但し、何らかの条件で絞り込んでいる時は、タイトル行のみの配列となります）。
かと言ってDataBodyRangeを使用すると、データが無いテーブルの場合はエラーが発生しますので「On Error Resume Next」等を使った処理が必要となります。DataBodyRange・Rangeのどちらが適切かは、状況によります。

３つ目は、Transpose関数を使用しているために起こる現象のようです。ワークシート上での行列入れ替えでは、もちろんデータ型が変わることは無く、また入れ替え前の配列内では日付型と認識してくれているのですが、Transpose後は文字列に変わってしまいます。配列を１要素ずつ行列変換するのは大変なので、後処理をするしかなさそうです。

２－４．テーブルの可視セルのデータを配列化　その２

上記図１２の問題点１（抽出行ゼロの時、戻り値が１次元配列）と問題点３（日付のデータ型が変わる）を解消するものが図１３です。抽出された行数を取得し、事前に「戻り値と同じ状態の２次元配列」を作ってからデータを格納する方法です。

70. '==========　⇩(4)　テーブルの可視セルのデータを配列化 2　============
71. Function TableArray_4(T As ListObject) As Variant
72. 　Dim buf As Variant 　 '←戻り値とする一時的な配列
73. 　Dim i As Long 　　　　 '←ｶｳﾝﾀ変数（配列の行位置）
74. 　Dim j As Long 　　　　 '←ｶｳﾝﾀ変数（配列の列位置）
75. 　Dim k As Long 　　　　 'テーブルのデータ行＋タイトル行の行数
76. 　Dim CellsCnt As Long 　 '←絞り込みﾃﾞｰﾀのｾﾙ個数
77. 　Dim ColCnt As Long 　 '←ﾃｰﾌﾞﾙの列数
79. 　CellsCnt = T.Range.SpecialCells(xlCellTypeVisible).Count
80. 　ColCnt = T.HeaderRowRange.Count
81. 　ReDim buf(1 To (CellsCnt / ColCnt), 1 To ColCnt)
83. 　For k = 1 To T.Range.Rows.Count
84. 　　If T.Range.Rows(k).Hidden = False Then
85. 　　　i = i + 1
86. 　　　For j = 1 To ColCnt
87. 　　　　buf(i, j) = T.Range.Cells(k, j)
88. 　　　Next j
89. 　　End If
90. 　Next k
92. 　TableArray_4 = buf
93. End Function

図１３別窓

７９行目「CellsCnt = T.Range.SpecialCells(xlCellTypeVisible).Count」は、テーブルで可視状態になっているセルの個数を取得しています。Rangeを使っていますので、タイトルのセル数＋抽出行のセル数になります。
８０行目「ColCnt = T.HeaderRowRange.Count」は、テーブルのタイトル部のセル数（＝列数）を取得しています。
７９～８０行目のイメージは図１４のようになり、可視セルの個数と横列の個数が分かりましたので、割り算をすれば「縦の数（＝可視の行数）」となります。

図１４別窓

８１行目「ReDim buf(1 To (CellsCnt / ColCnt), 1 To ColCnt)」では、７９～８０行目の結果を使って、可視の要素（タイトルを含む）の配列サイズを設定しています。図１２の配列bufとは異なり、行/列はテーブルの向きと同じになっています。

８３～９０行目では、テーブルの全行に渡って可視行か否かを調べ、可視行のみを処理しています。
８３行目「For k = 1 To T.Range.Rows.Count」で、カウンタ変数ｋを「テーブルの全行数（タイトル部＋データ部）分だけ回します。
８４行目「If T.Range.Rows(k).Hidden = False Then」では、その行が非表示か否かを確認します。非表示で無い（＝可視行）時に、８５～８８行目を実行します。
可視行の場合は８５行目「i = i + 1」で、データを格納する配列の行位置を確定します。変数ｉは７３行目でLong型で宣言しているので、初期値はゼロです。そのため初めのデータ（＝タイトル行）は配列の１行目に入ることになります。
８６行目「For j = 1 To ColCnt」では、カウンタ変数ｊをテーブルの列数（＝配列の横幅）分だけ回します。ColCntの代わりにUbound(buf, 2)を使っても同じです。
８７行目「buf(i, j) = T.Range.Cells(k, j)」で、各列の値を配列に格納していきます。値は「テーブルの全データ（T.Range）」を基準とした位置のデータ「.Cells(k, j)」となります。ｋ値はテーブルのタイトル行を１とした行位置、ｊ値は列位置です。

全てのデータを配列bufに格納したら、９２行目「TableArray_4 = buf」で、関数プロシージャの戻り値にそのまま設定します。
但し、この図１３の方法でも「データが元々無い場合で、データの絞り込みをしていない状態では、データ値にEmptyが入る」という問題点は解消できません。

２－５．テーブルの可視セルのデータを配列化　その３

絞り込まれた行数が少ない場合であれば、図１３のように「テーブルのデータをその都度読み取る」方式でも問題ないのですが、抽出される行数が多かったり列数が多いテーブルの場合には、セルのデータに直接アクセスする回数が増え、処理時間も多く掛かってしまいます。
そこで、一旦テーブルの全データを取り込み、セルへの直接アクセスを減らしているのが図１５です。

100. '==========　⇩(5)　テーブルの可視セルのデータを配列化 3　============
101. Public Function TableArray_5(T As ListObject) As Variant
102. 　Dim buf1 As Variant 　 '←テーブル全体のデータ
103. 　Dim buf2 As Variant 　 '←戻り値とする一時的な配列
104. 　Dim i As Long 　　　　　 '←ｶｳﾝﾀ変数（配列の行位置）
105. 　Dim j As Long 　　　　　 '←ｶｳﾝﾀ変数（配列の列位置）
106. 　Dim k As Long 　　　　　 'テーブルのデータ行＋タイトル行の行数
107. 　Dim CellsCnt As Long 　 '←絞り込みﾃﾞｰﾀのｾﾙ個数
108. 　Dim ColCnt As Long 　　 '←ﾃｰﾌﾞﾙの列数
110. 　buf1 = T.Range
111. 　CellsCnt = T.Range.SpecialCells(xlCellTypeVisible).Count
112. 　ColCnt = UBound(buf1, 2)
113. 　ReDim buf2(1 To (CellsCnt / ColCnt), 1 To ColCnt)
115. 　For k = 1 To UBound(buf1, 1)
116. 　　If T.Range.Rows(k).Hidden = False Then
117. 　　　i = i + 1
118. 　　　For j = 1 To ColCnt
119. 　　　　buf2(i, j) = buf1(k, j)
120. 　　　Next j
121. 　　End If
122. 　Next k
124. 　TableArray_5 = buf2
125. End Function

図１５別窓

１１０行目「buf1 = T.Range」では、テーブルの全範囲（タイトル部＋データ部）のデータを配列buf1に代入しています。以降でテーブルのデータ（値）を取得するときは、このbuf1から取り出します。
１１１行目「CellsCnt = T.Range.SpecialCells(xlCellTypeVisible).Count」では、テーブルの可視セル数を取得します。これは図１３の７９行目と同じです。
１１２行目「ColCnt = UBound(buf1, 2)」では、テーブルの列数を取得します。図１３の８０行目「ColCnt = T.HeaderRowRange.Count」では、テーブルのタイトル行のセル数から列数を求めましたが、ここでは既に取得済みのテーブル値の配列（buf1）の横幅から取得しています。どちらを使ってもOKと思います。
１１３行目「ReDim buf2(1 To (CellsCnt / ColCnt), 1 To ColCnt)」では、可視データを格納する配列buf2のサイズを決めています。

１１５行目「For k = 1 To UBound(buf1, 1)」で、カウンタ変数ｋをテーブルの全行数（タイトル部＋データ部）分だけ回します。
１１６行目「If T.Range.Rows(k).Hidden = False Then」では、その行が非表示か否かを確認し、可視行の場合に１１７～１２０行目を実行します。
可視行の場合は、１１７行目「i = i + 1」でデータを格納する配列の行位置を指定します。
１１８行目「For j = 1 To ColCnt」では、カウンタ変数ｊをテーブルの列数分だけ回します。
１１９行目「buf2(i, j) = buf1(k, j)」で、配列buf2の各要素に、事前に取り込んでおいたテーブルの配列buf1から値を拾い上げて格納していきます。

最後に１２４行目「TableArray_5 = buf2」で、可視行の分だけの配列を関数の戻り値にします。

２－６．テーブルの可視行だけを取り出して配列化　その４

上記の方法は、テーブルのデータ行の順番（≒並び変えた順番）を守って配列化しています。そのためにFor Each～Nextでは無くFor～Nextを使っているわけですが、もしデータの並び順はそれほど重要では無い　というのであれば以下のような方法も考えられます。
また「データが無いテーブル＋InsertRowRangeが可視状態」の場合でも、タイトル行のみの配列を戻すような工夫も盛り込んでみましたので参考にして下さい。

130. '==========　⇩(6)　可視行だけを取り出して配列化4　============
131. Public Function TableArray_6(T As ListObject) As Variant
132. 　Dim r As Range 　　　 '←絞り込まれたﾃﾞｰﾀの内の1行分
133. 　Dim buf As Variant 　 '←戻り値とする一時的な配列
134. 　Dim i As Long 　　　 '←ｶｳﾝﾀ変数（配列の行位置）
135. 　Dim j As Long 　　　 '←ｶｳﾝﾀ変数（配列の列位置）
136. 　Dim CellsCnt As Long 　　 '←絞り込みﾃﾞｰﾀのｾﾙ個数
137. 　Dim ColCnt As Long 　　 '←ﾃｰﾌﾞﾙの列数
139. 　On Error Resume Next
140. 　　CellsCnt = T.DataBodyRange.SpecialCells(xlCellTypeVisible).Count
141. 　On Error GoTo 0
143. 　ColCnt = T.HeaderRowRange.Count
144. 　ReDim buf(1 To (CellsCnt + ColCnt) / ColCnt, 1 To ColCnt)
146. 　i = 1
147. 　For j = 1 To ColCnt
148. 　　buf(i, j) = T.HeaderRowRange(j)
149. 　Next j
151. 　If Not CellsCnt = 0 Then
152. 　　For Each r In T.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows
153. 　　　i = i + 1
154. 　　　For j = 1 To ColCnt
155. 　　　　buf(i, j) = r.Cells(1, j)
156. 　　　Next j
157. 　　Next r
158. 　End If
160. 　TableArray_6 = buf
161. End Function

図１６別窓

１４０行目「CellsCnt = T.DataBodyRange.SpecialCells(xlCellTypeVisible).Count」では、Range（テーブル全体）では無く「DataBodyRange（テータ部分）」の可視セルのセル数を取得しています。DataBodyRangeですので、データ数がゼロの時のInsertRowRangeは含まれませんし、また絞り込みで抽出された行がゼロであればエラーが発生しますので、１３９行目「On Error Resume Next」で、エラーをスルー（＝変数CellsCnt の値がゼロになる）させています。

１４３行目「ColCnt = T.HeaderRowRange.Count」は図１３・図１５と同じく、タイトル部のセル数（＝テーブルの列数）を取得します。
１４４行目「ReDim buf(1 To (CellsCnt + ColCnt) / ColCnt, 1 To ColCnt)」は、可視セルのデータを格納する配列のサイズを決めていますが、今回は「CellsCnt」がタイトル行を含まない値ですので、図１３・図１５とは少しだけ式が異なります。
縦方向は「 (CellsCnt + ColCnt) / ColCnt」と、（可視状態のデータセル数＋タイトルセル数） ÷ タイトルセル数　という数式になります。横方向は、変わらずに「ColCnt」とテーブル列数そのものです。

データの格納も、タイトル部とデータ部は分けて入れていく必要があります。
１４６行目「i = 1」は、格納する配列bufの１行目にデータを入れる事を表しています。
１４７行目「For j = 1 To ColCnt」は、カウンタ変数ｊをテーブルの列数分だけ回します。ColCntの代わりに「UBound(buf, 2)」を使っても同じです。
１４８行目「buf(i, j) = T.HeaderRowRange(j)」で、タイトル行の値を１要素ずつ配列に格納しています。

タイトル部のデータ格納が完了したら、１５１～１５８行目でデータ部の値を格納していきます。
なお可視状態のDataBodyRangeが存在しない（抽出された行がゼロ、またはデータが全く無いテーブル）場合には、データを入れる必要がありません。と言うより、格納する配列bufに「データ用の場所が無い」ので入れることができません。
ですので１５１行目「If Not CellsCnt = 0 Then」で、１４０行目がエラーの場合（＝可視データが無い）は、１５２～１５７行目を実行せずに、１６０行目でタイトルデータだけの配列を戻すことになります。

可視状態のデータ部が存在する場合は、１５２行目「For Each r In T.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows」で、可視状態のデータ領域から１行ずつ取り出します。For Eachですから取り出す順番は保障されていません。

１４６～１５８行目のコード（タイトル部の配列化とデータ部の配列化）を「まとめて配列化」しようとして「DataBodyRangeの代わりにRange」を使う方法を思いつく方もいるかもしれません。しかしFor Eachでは取り出される順番が保障されていないために、例えば「タイトル行が配列の先頭にならなかったり、InsertRowRangeを処理した結果のEmptyが入ってしまったり」する可能性が出てきてしまいます。 そのため「タイトル行を含めた範囲に対する処理」にFor Each～Nextを使用することは危険です。

１５３行目「i = i + 1」では、格納する配列bufの行位置を指定しています。１４６行目で変数ｉに「１」を代入してタイトルデータを格納していますので、１５３行目では変数ｉは「２」からスタートします。

１５４行目「For j = 1 To ColCnt」では、カウンタ変数ｊをテーブルの列数分だけ回します。
１５５行目「buf(i, j) = r.Cells(1, j)」では、取り出した可視データ行（Rangeオブジェクト変数ｒ）の範囲内の、「１行目×ｊ列目」の位置のデータを、配列bufの要素に格納します。

配列へのデータ格納が完了したら、１６０行目「TableArray_6 = buf」で、関数プロシージャの戻り値に設定します。

２－７．テーブルをコピーし、クリップボード上のデータをDataObjectで配列化

図８では「テーブルの可視セルをコピーし、別シートに貼り付け」て、貼り付けたデータに対して処理を行っていました。
今回は、コピーするところまでは同じですが、クリップボードに入ったデータを直接取り出して処理をしています。

まず、クリップボードからデータを取り出すために、今回はDataObjectオブジェクトというものを使用します。DataObjectには図１７のようなメソッドがあり、クリップボードとのデータやり取りが可能です。

DataObjectのメソッド

メソッド	内容
Clear	DataObjectの全ﾃﾞｰﾀを削除
GetFormat(ﾃﾞｰﾀ形式)	DataObject上の形式の有無 → 出力
GetFromClipboard	Clipboardのﾃﾞｰﾀ → ｺﾋﾟｰ → DataObject
GetText([ﾃﾞｰﾀ形式])	DataObjectのﾃﾞｰﾀ → ﾃｷｽﾄ文字を出力
PutInClipboard	DataObjectのﾃﾞｰﾀ → 移動 → Clipboard
SetText(格納ﾃﾞｰﾀ,[ﾃﾞｰﾀ形式])	ﾃｷｽﾄ文字列 → ｺﾋﾟｰ → DataObject
StartDrag(操作の効果)	DataObjectのﾄﾞﾗｯｸﾞ&ﾄﾞﾛｯﾌﾟを開始

図１７別窓

図１８は、今回の流れです。VBAはクリップボードに直接アクセスできない為、DataObjectを通して操作します。

図１８別窓

まずテーブルの範囲をコピーすると、そのデータ（可視セルのみ）はクリップボードに入ります。図８の時には「他のシートにデータを貼り付け（Paste）」し、その貼り付けたデータを使って処理を行ってきました。（図１８の右上側）
今回は、クリップボードに入ったデータをDataObjectオブジェクトにコピーし、そこからテキストデータとして取り出してから処理（今回は配列化）をしています。（図１８の右下側）

実行コードは、図１９のようになります。

170. '==========　⇩(7)　クリップボードからデータ取り出し配列化１　============
171. Function TableArray_7(T As ListObject) As Variant
172. 　Dim Dobj As Object 　 '←DataObjectオブジェクト
173. 　Dim buf1 As String 　 '←クリップボードのデータ
174. 　Dim buf2 As Variant 　 '←行ごとに分割した配列データ
175. 　Dim buf3 As Variant 　 '←１行データを列に分割した配列データ
176. 　Dim buf4 As Variant 　 '←戻り値となる配列
177. 　Dim AllStr As Long 　　 '←クリップボードのデータの文字数
178. 　Dim CrLfCnt As Long 　 '←その内のCrLfの数（＝行数）
179. 　Dim TabCnt As Long 　 '←その内のTabの数（＝列数ー１）
180. 　Dim i As Long 　　　　 '←配列の行位置
181. 　Dim j As Long 　　　　 '←配列の列位置
183. 　Set Dobj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
185. 　T.Range.SpecialCells(xlCellTypeVisible).Copy
186. 　Dobj.GetFromClipboard
188. 　On Error Resume Next
189. 　　buf1 = Dobj.GetText
190. 　　Application.CutCopyMode = False
192. 　　AllStr = Len(buf1)
193. 　　CrLfCnt = (AllStr - Len(Replace(buf1, vbCrLf, ""))) / 2
194. 　　TabCnt = AllStr - Len(Replace(buf1, vbTab, ""))
195. 　　ReDim buf4(1 To CrLfCnt, 1 To (TabCnt + CrLfCnt) / CrLfCnt)
197. 　　buf2 = Split(buf1, vbCrLf)
198. 　　For i = 1 To UBound(buf4, 1)
199. 　　　buf3 = Split(buf2(i - 1), vbTab)
200. 　　　For j = 1 To UBound(buf4, 2)
201. 　　　　buf4(i, j) = buf3(j - 1)
202. 　　　Next j
203. 　　Next i
205. 　　If Not Err.Number = 0 Then Exit Function
206. 　On Error GoTo 0
208. 　TableArray_7 = buf4
210. 　Set Dobj = Nothing
211. End Function

図１９別窓

１８３行目「Set Dobj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")」では、実行時バインディングで「MSFormsのDataObjectオブジェクト」を生成し、変数Dobj（DataObjectの略のつもり）としています。
長い記号でのCreateObjectなので、もっと簡単に「参照設定をして事前バインディング」を使うやり方を下の方で紹介します。

１８５行目「T.Range.SpecialCells(xlCellTypeVisible).Copy」では、テーブルの可視セル範囲をコピーしています。これは図８の２７行目と同一で、直接セル選択していないため「SpecialCellsを使って可視セルに絞る」必要があります。
１８６行目「Dobj.GetFromClipboard」では、クリップボードに入ったデータをDataObjectにコピーしています。

１８８行目「On Error Resume Next」については、２０５行目のところで説明します。
１８９行目「buf1 = Dobj.GetText」は、DataObjectから「テキストデータ」を取り出し、変数buf1に代入をします。テーブルのような二次元の表をコピーしていますが、この段階では配列では無く単純な「文字列」です。
但し表の形を文字列で表すため、図２０の右側のように「タブ（vbTab）」が次の列に移る印、また「改行（vbCrLf）」が次の行に移る印になっています（セル内の改行は、vbLf になります）。
（図２０の右側は、テーブルをコピーした後、Microsoft Wordに「テキスト貼り付け」したものです。オプションの表示の設定で、タブと段落記号（＝改行）も表示させています。）

図２０別窓

テキストデータの取得が完了したら、１９０行目「Application.CutCopyMode = False」でコピーモードを解除します。

１９２～１９５行目では、コピーしたセル範囲の縦×横のサイズを計算し、値を格納する配列サイズを指定します。その手順を図２１に示します。

図２１ 別窓

コピーしたテーブルの可視セル範囲は図２１の左側の２行３列とし、それぞれのセルには値が入っているとします。GetTextメソッドで得られるテキストデータは、セル値を「列の移動はTab」「行の移動はCrLf」で繋いだものになります。そのテキストデータの中の「Tab」と「CrLf」の数を数えることにより、元のセル範囲のサイズ（＝データを格納する配列サイズ）を計算することが可能です。

まず、取得したテキストデータの全体の「文字数」を１９２行目「AllStr = Len(buf1)」で取得します。
１９３行目「CrLfCnt = (AllStr - Len(Replace(buf1, vbCrLf, ""))) / 2」は、CrLfの数を調べています。元のテキストデータのCrLfの部分を「""（長さゼロの文字列）」で置き換え、元の長さから引き算するのですが、CrLfは「CrとLfの２つの文字」ですので「２」で割ることでCrLfの数を求める事が出来ます。
１９４行目「TabCnt = AllStr - Len(Replace(buf1, vbTab, ""))」は、同様にTabの数を調べています。Tabは１つの文字なのでそのままでOKです。

１９５行目「ReDim buf4(1 To CrLfCnt, 1 To (TabCnt + CrLfCnt) / CrLfCnt)」では、CrLfの数とTabの数から行列の数を計算し、データを最終的に格納する配列buf4のサイズを指定しています。

１９７行目「buf2 = Split(buf1, vbCrLf)」では、GetTextで得たテキストデータを「CrLf」で分割して配列buf2に代入しています。図２１の左図が元のテーブルだとすれば、図２２のようになります。


図２２別窓

１９８～１９９行目では、１９７行目で分割し配列buf2の各要素のテキストデータを「Tab」で更に分割し配列buf3に代入します。図２２の続きとすると図２３のようになります。


図２３別窓

１９７行目で得られた配列buf2の各要素（最下段は除く）は、最終的な配列（buf4）の１つの行データを集めたものになっていて、複数の各要素は「Tab」でつながっている形です。ですので、要素を切り離すためには「Tab」で分割していきます。
１９８行目「For i = 1 To UBound(buf4, 1)」では、最終的な格納配列（buf4）の行数分だけカウンタ変数ｉを回し、１行分ずつ処理をしていきます。配列buf2の要素は「最終的な配列buf4の行数よりも１つ多い」ので、buf2の最後の要素（長さゼロの文字列しか入っていない）は処理されないことになります。
１９９行目「buf3 = Split(buf2(i - 1), vbTab)」は、１行分のデータを「Tab」で分割し、配列buf3に代入します。

buf3まで分割したら、その配列buf3の各要素の値を「最終的な配列buf4に格納」していきます。流れとしては図２４のようになります。

図２４別窓

まず１９９行目で「１行分の配列buf3」を作ったら、２００行目「For j = 1 To UBound(buf4, 2)」でカウンタ変数ｊを列数分だけ回します。列数は「最終的な配列buf4の列数」であり、また「配列buf3の要素数」でもあります。
２０１行目「buf4(i, j) = buf3(j - 1)」では、配列buf3の各要素の値を、最終的な配列buf4の要素に格納していきます。

説明を先延ばしにしていた１８８行目「On Error Resume Next」の説明をしていきます。
今回のプログラムは、テーブルの範囲をコピーし、クリップボードに入ったデータを取り出して配列化の処理を行うという流れです。
しかしWindows上には、このマクロを動かしているExcel以外にも複数のアプリ（異なるExcelも含む）が同時に動いています。またクリップボードはWindowsの全てのアプリが共有できるものです。

例えば今回の１８５行目の「テーブルをCopy」した直後に、他のアプリが割り込んできて「クリップボードに関わる操作」をしてしまったとします。
GetTextメソッドでテキストデータを取り出す前なので、取得するデータは「目的のテーブルのデータでは無い」ことは確かですが、そのデータを処理する段階でエラーが出る場合があります。
図２５では、クリップボードに「どんな操作をされたら、どんなエラーになるか」をまとめてみました。文字列の組み合わせは無限にあるので、全てが網羅されているかは分かりません。

No	クリップボードへの操作		エラー内容
1	コピーモード解除		buf1=0となり､195行目でｾﾞﾛ除算ｴﾗｰ
2	ｵﾌﾞｼﾞｪｸﾄ(例えば図形)をCopy		189行目のGetTextでｴﾗｰ
3	Text を Copy	ﾃｰﾌﾞﾙ状のﾃﾞｰﾀ	問題無く処理
4		CrLf･Tabの各数が､ﾃｰﾌﾞﾙ状では無いﾃﾞｰﾀ	列数計算に小数点が発生し､195行目でｴﾗｰ
5		TabもCrLfも無いText	CrLfCnt=0となり､195行目でｾﾞﾛ除算ｴﾗｰ
6		先頭にCrLfがあるText	199行目でbuf2(0)に値が入らず､201行目でｴﾗｰ
7		ﾃｰﾌﾞﾙ状ﾃﾞｰﾀの後ろにも文字列があるText	問題無く処理(後ろの文字列は無視)

図２５別窓

結論から言うと、処理コードの中の色々な部分でエラーが発生する可能性があるため、１８８行目「On Error Resume Next」以降でエラーをスルーさせ、処理が終わった２０５行目「If Not Err.Number = 0 Then Exit Function」でエラー番号を調べ、ゼロ以外の場合は関数プロシージャを抜け出します。まだ関数プロシージャの戻り値設定をしていない状態なので、Variant型の初期値Emptyが戻ることになります。

最後に２０８行目「TableArray_7 = buf4」では、最終的な配列buf4を関数プロシージャの戻り値に設定し、終了します。
なお、この関数プロシージャから戻される配列のデータは、全要素が「文字列」ですので、用途に応じてデータ型変換が必要となることに注意が必要です。

なお、基本的にはシングルタスクのWindows上で動いているExcelで、CopyとGetFromClipboardの間で割り込みが本当に入る可能性があるのかは良く分かりません。特段「DoEvents」を入れている訳でも無いので２つのコードが分断されて実行されることは無いような気もします。 今回は、万が一の割り込みでプログラムが停止することの無いように、このような構成にしましたが、しかし本当に怖いのは、図２５のNo.3やNo.7のように、割り込みをされたのに「正常に処理されて、あたかも正しいような配列データ」が戻ってしまった時だと思います。プログラムはその間違ったデータを元に処理を続けていき、元の大切なデータを書き換えてしまうかもしれないからです。 その意味でも、戻ってきたデータが「本当に正しいか」のチェックに、力を入れる必要があると思います。少なくとも「戻ってきた配列１行目が、引数として渡したテーブルのタイトル行と同じか」くらいは、重要なシステムなら行うべきかもしれません。

図１９では「実行時バインディング」を使ったために「CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")」のように長くて無機質な文字列の並びをCreateObjectしないといけませんでした。
これを「事前バインディング」で、必要なライブラリを参照設定しておけば、もっと分かりやすい設定となります。

事前バインディングは、図２６のようにVBE画面の「ツール」→「参照設定」で表示される「参照設定ダイアログ」にライブラリを登録する必要があります。

図２６別窓

リストの中から探し出してチェックをONにすればよいのですが、なぜか今回必要な「Microsoft Forms 2.0 Object Library」は見当たりません（見つかる環境もあるのかもしれません）。その場合はダイアログの横の「参照」ボタンから、ライブラリを直接するのが正式なやり方のようです。

なお、もっと簡単に登録できる方法があります。図２７のように「シート上に、ActiveXコントロールを配置(A)」または「ユーザーフォームを挿入(B)」すれば、自動的にライブラリが登録されます。もし作ったActiveXコントロールやユーザーフォームが不要なら、すぐに削除しても問題ありません。ライブラリは消えずにBookに残ってくれます。（逆に一旦ActiveXやUserFormでライブラリを追加した時の、解除方法が分かりませんでした。Book内のどこかに情報が残ってしまうようです。）
図２７別窓

上記のどの方法かでライブラリを登録した状態で、図２８のようなコードにします。図１９と異なる部分を見え消しと赤字で表します。

220. '==========　⇩(8)　クリップボードからデータ取り出し配列化２　============
221. Function TableArray_8(T As ListObject) As Variant
222. '　Dim Dobj As Object 　
223. 　Dim Dobj As MSForms.DataObject 　 '←DataObjectオブジェクト
224. 　Dim buf1 As String 　 '←クリップボードのデータ
225. 　Dim buf2 As Variant 　 '←行ごとに分割した配列データ
226. 　Dim buf3 As Variant 　 '←１行データを列に分割した配列データ
227. 　Dim buf4 As Variant 　 '←戻り値となる配列
228. 　Dim AllStr As Long 　　 '←クリップボードのデータの文字数
229. 　Dim CrLfCnt As Long 　 '←その内のCrLfの数（＝行数）
230. 　Dim TabCnt As Long 　 '←その内のTabの数（＝列数ー１）
231. 　Dim i As Long 　　　　 '←配列の行位置
232. 　Dim j As Long 　　　　 '←配列の列位置
234. '　Set Dobj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
235. 　Set Dobj = New MSForms.DataObject
237. 　T.Range.SpecialCells(xlCellTypeVisible).Copy
238. 　Dobj.GetFromClipboard
240. 　On Error Resume Next
241. 　　buf1 = Dobj.GetText
242. 　　Application.CutCopyMode = False
244. 　　AllStr = Len(buf1)
245. 　　CrLfCnt = (AllStr - Len(Replace(buf1, vbCrLf, ""))) / 2
246. 　　TabCnt = AllStr - Len(Replace(buf1, vbTab, ""))
247. 　　ReDim buf4(1 To CrLfCnt, 1 To (TabCnt + CrLfCnt) / CrLfCnt)
249. 　　buf2 = Split(buf1, vbCrLf)
250. 　　For i = 1 To UBound(buf4, 1)
251. 　　　buf3 = Split(buf2(i - 1), vbTab)
252. 　　　For j = 1 To UBound(buf4, 2)
253. 　　　　buf4(i, j) = buf3(j - 1)
254. 　　　Next j
255. 　　Next i
257. 　　If Not Err.Number = 0 Then Exit Function
258. 　On Error GoTo 0
260. 　TableArray_8 = buf4
262. 　Set Dobj = Nothing
263. End Function

図２８別窓

なお、２２３行目と２３５行目を一緒にし、図２９のようにしてもOKです。

223. Dim Dobj As New MSForms.DataObject

図２９別窓

２－８．各方法のまとめ

テーブルのデータを配列化する方法を、上記で８種類紹介しました。しかし「どれを使えば良いんだ？」と思われると思いますので、各方法での処理スピード等を比較してみました（図３０）。
なお、試したテーブルは「10列」で、1000行のデータがあるものと、タイトルのみでデータがゼロ（InsertRowRangeのみ）の状態のものです。PCはギリギリでWindows11にアップグレード出来ないi5です。環境によって全く違う値になると思うので、相対的な参考値として捉えてください。

ﾌﾟﾛｼｰｼﾞｬ	処理速度(ms)			戻される配列の データ型再現性
	ﾃﾞｰﾀ：1000行		ﾃﾞｰﾀ：ｾﾞﾛ行
	全行可視	10行に絞込	そのまま	文字列	数値	日付
TableArray_1	77	77	56	〇	〇	〇
TableArray_2	72	68	52	〇	〇	〇
TableArray_3	77	18	0	〇	〇	×(文字列)
TableArray_4	66	20	0	〇	〇	〇
TableArray_5	26	18	2	〇	〇	〇
TableArray_6	45	3	0	〇	〇	〇
TableArray_7	37	24	27	〇	× (文字列)	× (文字列)
TableArray_8	41	21	27

図３０別窓

処理速度の方は、10回動かしてみての平均値（単位ms：1/1000秒）です。またテーブルのデータには「文字列」「数値」「日付」の値を入れ、戻されてきた配列内のデータの型を調べたものが図３０の右側３列になります。個別の説明でも記しましたが、文字列として返してしまうものがあるので注意が必要です。

TableArray_1とTableArray_2は、別シートにデータを貼り付けているために、ある程度の時間がかかってしまいます。また、別シートを準備する必要もあります。

TableArray_3～TableArray_5では、Hiddenプロパティ値を調べるのにはそれほど時間が掛からないようです。但しTableArray_3はTranspose関数で行／列をひっくり返す時に「日付型→文字列型」になってしまうデメリットがあります。また、一旦テーブルをメモリ（配列）に取り込んでから処理をするTableArray_5は、抽出行が多い場合は効果が出ています。

TableArray_6はFor Each～Nextで、可視行のみを取り出して処理するので、抽出行の数に比例して時間が掛かります。並び順をあまり気にしないシステムでは有効と思います。

TableArray_7とTableArray_8は、バインディングが実行時か事前かの違いですが、処理時間には違いが見られませんでした。これは、プロシージャを頻繁に呼び出さないテストのためと思います。
また、クリップボード経由のデータ処理にはある程度の時間がかかるようです。それに何と言ってもデータ型が全て文字列になってしまうため、配列を受け取った側での処理に気を遣う必要があります。

アプリ実例

「DVD等の内容・保管場所等管理システム」
「先行予約可能な備品予約・貸出システム」
「ToDoリストで個人タスク管理」
「会社番号検索システム」