ランタイム エラー 13「型の不一致エラー」で問題が発生しています。複数行のコードを取り、それらを 1 行に凝縮して、各行を並べて配置しようとしています。問題は、私の入力が文字列と数字であることです。これが、この問題の原因であると私は信じています。どうすればこれを修正できますか?
Sub multRowsTo1Row()
Dim inputRange As Variant
Dim outputRange As Variant
inputRange = Selection
y = UBound(inputRange, 1)
x = UBound(inputRange, 2)
ReDim outputRange(1 To x * y)
For j = 1 To y
For i = 1 To x
outputRange(i + y(j - 1)) = inputRange(j, i)
Next i
Next j
Selection.Offset(0, x).Select
End Sub