Option Explicit
Option Base 1
Sub 試験()
Dim vnttmp As Variant
Dim 実行 As Long
Dim 実桁 As Long
With Worksheets("Sheet1")
vnttmp = .Range("A2", .Range("D65536").End(xlUp)).Value
End With
実行 = UBound(vnttmp, 1)
実桁 = UBound(vnttmp, 2)
vnttmp(10, 3) = "Takahashi"
Worksheets("Sheet1").Range(Cells(2, 1), Cells(実行, 実桁)) = vnttmp
End Sub
Excelの場合は、2次元の配列を簡単に扱えるので、ワークシートから配列への読込や
その逆でも、1行で済むのが素晴らしいですね。でも色んな関数とかが書いてあれば
駄目のようですが。(^0^)
試験に使ったワークシートです。確かに1カ所変更になってます。