範囲オブジェクトのVBA特殊セルメソッドが失敗しました

Question

2次元配列を設定しましたが、各ブロックの各試行で列Hの塗りつぶされたセルの数を数えたいと思います。その後、各試行の最後の行の横にある塗りつぶしたセルの数を列Tに印刷します。

問題は、マクロを実行しようとするとExcelが応答を停止し、再起動後、タイトルにエラーメッセージが表示されます。

Sub dotcountanalysis2() 
' create multidimensional array 
Dim Participant() As Variant 

Participant = Worksheets("full test").Range("A7", Range("S:S")).Value 

Dim Block As Variant 
Block = Columns(2) 

Dim Trial As Variant 
Trial = Columns(3) 

' define column H as boolean variable 

Dim Pressed As Boolean 
Pressed = True 

' begin analysis after practice trials 
For Each Block In Participant 
    For Each Trial In Participant 
    pressedcount = Range("H:H").Cells.SpecialCells(xlCellTypeConstants).Count 
     If Cells(, 8) = Pressed Then 
     Range("T:T").Value = pressedcount 
     End If 
    Next Trial 
Next Block 

End Sub 

エラーラインである：

pressedcount = Range("H:H").Cells.SpecialCells(xlCellTypeConstants).Count 

私は私のように、また私の構文は、それが各試行カウント作るために正しいことを確認していないよ。ここ

は、コードがありますコードにステップインしようとしましたが、列H（562）の塗りつぶされたセルの総数を返し、それを列Tのすべてのセルに表示します。可能な最大行数。

Here is a sample of my data

Answer 1

最も関連の問題は、おそらくあなたはそれの値を2回の値の巨大なバリアント配列を作成し、ループという事実です。

Participantアレイには1048576 * 19 = 19922944の値が含まれています。

これらの値をループして、各値についてループを繰り返すと、19922944 * 19922944 = 396923697627136回の繰り返しが発生します。だからこそ、Excelは反応しません。

ただし、各繰り返しで値...を使用しないでください...？

列Hにその数字Pressedを計算し、その数値を列Tに書き込む場合は、すべて列の値を配列にロードするのはなぜですか？ここで

は私はあなたがそうでなければ、それはあなたがアクティブなシートを意味すると仮定しなければならないので、すべての範囲の前にシートを記述する必要はありませんので、私はWithブロックを使用VBA

Dim pressedCount As Long 
Dim myCell As range 
Dim pressedRange As range 

With Worksheets("full test") 
    pressedCount = Application.WorksheetFunction.CountA(.Columns("H")) 
    If pressedCount = 0 Then Exit Sub 'make sure there are cells or else the next line will fail 
    Set pressedRange = .Columns("H").SpecialCells(xlCellTypeConstants) 
    For Each myCell In pressedRange.Cells 'only loop through the cells containing something 
     .Cells(myCell.Row, "T").Value = pressedCount 
    Next myCell 
End With 

にどうなるのかです。 これは、ヘッダーでなく、列Hに "Pressed"以外の値がないことを前提としています。ヘッダがある場合は、それは個人のいずれかのタイプが含まれていない限り、あなたの嘆願は、/ファイルを添付することができ、また=IF($H7="Pressed",COUNTA(H:H),"")