>>847
こういうこと
あと、Dimの書き方もこうしないとだめ

Sub Macro1()
　　Dim tmpArr() As Variant, tmp As Variant
　　Dim rowIndex As Long, colIndex As Long
　　Dim arrIndex As Long　　' 配列用のインデックス

　　tmpArr = Worksheets(1).Range("A3:C101").Value
　　arrIndex = 0
　　For rowIndex = 1 To UBound(tmpArr) - 2 Step 3　　' セルアドレスは3ずつ増やす
　　　　For colIndex = 1 To UBound(tmpArr, 2)
　　　　　　tmp = tmpArr(rowIndex, colIndex) & "結合データ"
　　　　　　tmpArr(arrIndex, colIndex) = tmp
　　　　Next
　　　　arrIndex = arrIndex + 1　　' 配列のインデックスは1ずつ増やす
　　Next

　　Worksheets(2).Range("A3:C35").Value = tmpArr
End Sub