配列から一括でセルに貼り付けた場合、消したくないセルの目次が消えてしまう。

Question

こんにちわ。

・実現したいこと

以下のようなエクセルがあったとします。
それを、ソースコードのVBAを実行して右のエクセルのように
学生番号・学生名・クラス・部活を入れたいです。

・困っていること
VBAを実行すると、以下の（現在）のように、"学生名簿"等が消えてしまいます。
ちなみに配列を使用せず、一個一個入れれば良いのでは？と思われるかもしれません。
しかし、実際に作成しているEXCELは項目が30個ほどあり
一個一個入れると挙動が遅いです。

・質問
1.どのようにしたら、"学生名簿"等が消えなくなるでしょうか？
2.また、他に良い方法があるよ、とのことでしたら教えていただけますでしょうか？

　■EXCEL
（理想）
A B C　　　　　　　　　 A B C
1 学生名簿　　　　　　　　　　　　　　　 1 学生名簿
2 学生番号 学生名　　　　　⇒　　　　　2 学生番号 学生名　
3 　　　　　　　　　　　　　　　　　　　　 3 0015 田中
4 クラス　　　　 部活　　　　　　　　　　 4 クラス　　　　 部活
5　　　　　　　　　　　　　　　　　　　　 5 A 剣道
（現在）
A B C　　　　　　　　　 A B C
1 学生名簿　　　　　　　　　　　　　　　 1
2 学生番号 学生名　　　　　⇒　　　　　2 　
3 　　　　　　　　　　　　　　　　　　　　 3 0015 田中
4 クラス　　　　 部活　　　　　　　　　　 4
5　　　　　　　　　　　　　　　　　　　　 5 A 剣道　　　　　

　　　　　　　　　

   Option Base 1
   Sub Student()
       Dim tmp(8,4) As Variant
       tmp(3,1) = "0015" 
       tmp(5,1) = "A"
       tmp(2,3) = "TANAKA"
       tmp(5,3) = "剣道"
    
       Range("A1:D8") = tmp
    End Sub

Answer 1

変数tmpで上書きするのに、「学生名簿」などの文字列を変数tmpに代入していないからですね。
このような場合は、一度、モドテータを変数に取得すると良いかと。

Dim tmp(8,4) As Variant

上記を以下のようにすればいかがでしょう。

    Dim tmp As Variant
    tmp = Range("A1:D8").Value

以下の部分で、変数tmpは２次元配列になります。

tmp = Range("A1:D8").Value

Comments

[torimuneniku]

できました！

基本的なところが抜け落ちてましたね・・・ありがとうございました！

Answer 2

       Dim tmp As Variant
       tmp = Range("A1:D8").Value
       tmp(3, 1) = "0015"
       tmp(5, 1) = "A"
       tmp(2, 3) = "TANAKA"
       tmp(5, 3) = "剣道"
       Range("A1:D8") = tmp

Comments

[torimuneniku]

ご回答ありがとうございました！

できました！