ワークシートにVBAコレクションの値を書き込む

-1

これは簡単な質問のように聞こえるかもしれませんが、コレクションの出力（単なる列）をワークシートに書き込む簡単な方法を見つけることができませんでした。ワークシートにVBAコレクションの値を書き込む

Collectionは、debug.printで正しい答えを返します。その出力をワークシートに置き、出力をクリアするだけです。

これは私のメインコレクションコードです。

Worksheets(Ders_Sheet_Adi).Visible = True 
Dim LastRowXL_1, LastRowXL_2, LastRowXL_3 As Long 
Dim uniques As Collection 
Dim Source_XL As Range 

LastRowXL_1 = Worksheets(Ders_Sheet_Adi).Cells(Rows.Count, 40).End(xlUp).Row 
LastRowXL_2 = Worksheets(Ders_Sheet_Adi).Cells(Rows.Count, 41).End(xlUp).Row 
LastRowXL_2_Q = LastRowXL_2 + 1 
LastRowXL_3 = Worksheets(Ders_Sheet_Adi).Cells(Rows.Count, 42).End(xlUp).Row 
LastRowXL_3_Q = LastRowXL_3 + 1 
LastRowXL_4_Q = LastRowXL_3_Q + LastRowXL_1 + 1 

XL_Main = WorksheetFunction.Max(LastRowXL_1, LastRowXL_2, LastRowXL_3) 

Set Source_XL = Worksheets(Ders_Sheet_Adi).Range("AN2:AP" & XL_Main & "") 
Set uniques = GetUniqueValues(Source_XL.Value)

出典

2017-09-26 Bildircin13

下記のリンクが参考になる場合があります。 https://stackoverflow.com/questions/18227942/how-to-write-a-vba-collection-to-an-excel-sheet – Fong

コレクションで 'Debug.print'を実行できないのではないかと疑いますエラー（* 450 - 間違った引数の数または無効なプロパティの割り当て*）。コレクションの項目をループして、それを印刷したり、シートに書き込んだりする必要があります。 – FunThomas

値を正常にdebug.printsするコードを投稿できますか？ @funthomasが言ったように、あなたは値を反復処理する必要があります –

私は、単にコレクションの後にFor配列を置くだけで方法を見つけました。私はコレクションの後にこれらのコードを入れて、今すぐ動作します。

Dim it_XL 

Worksheets(Ders_Sheet_Adi).Range("AN1:AP1100").Select 
Selection.ClearContents 

it_XLQ = 1 
For Each it_XL In uniques 
If it_XLQ = 1 Then it_XLQ_M = 100 Else it_XLQ_M = it_XLQ - 1 
Worksheets(Ders_Sheet_Adi).Range("AP" & it_XLQ & "") = it_XL 
If Worksheets(Ders_Sheet_Adi).Range("AP" & it_XLQ & "") = Worksheets(Ders_Sheet_Adi).Range("AP" & it_XLQ_M & "") Then 
Worksheets(Ders_Sheet_Adi).Range("AP" & it_XLQ & "").Delete 
GoTo Son2 
Else: GoTo Son3 
End If 
Son3: 
it_XLQ = it_XLQ + 1 
Next 

Worksheets(Ders_Sheet_Adi).Range("AP1:AP20").Copy 
Worksheets(Ders_Sheet_Adi).Range("AQ1:AQ20").PasteSpecial Paste:=xlPasteValues 

Son2: 

LastRow_END = Worksheets(Ders_Sheet_Adi).Cells(Rows.Count, 43).End(xlUp).Row

出典

2017-09-26 08:14:43 Bildircin13

ワークシートにVBAコレクションの値を書き込む

答えて

関連する問題