|
ごめん、以下を勘違いで、間違った為に修正して下さい
修正が必要なコード
'"追加No."数、"削除No."数で大きい方の行数分を取得します
If lngAppend > lngDelete Then
lngRows1 = lngAppend
Else
lngRows1 = lngDelete
End If
With rngResult
'出力範囲をクリア
.Resize(, 2).EntireColumn.Clear
'結果を出力
.Resize(lngRows1 + 1).Value = vntAppend
.Offset(, 1).Resize(lngRows1 + 1).Value = vntDelete
End With
上記部分を以下の修正コードに差し替えてください
With rngResult
'出力範囲をクリア
.Resize(, 2).EntireColumn.Clear
'結果を出力
.Resize(lngAppend + 1).Value = vntAppend
.Offset(, 1).Resize(lngDelete + 1).Value = vntDelete
End With
以上
|
|