ペースト入力で時計算式の入っているセルを保護したい

質問

計測値を表にするために Excelを使用しています。
例えば、

10　タブ　20　タブ　タブ　30

上記のようなテキストをペーストして Excelの表を埋めています。
タブをペーストすると次のセルに進んでくれます。
上記のタブ２つはセルを１つスキップさせたいからなのですが、
Excelに計算式が書かれていてもタブをペーストすると計算式も消えてしまいます。

入力規制とかセルの保護とかも考えたのですが、それだとエラーメッセージが出てペースト（入力）自体が無効になってしまいました。

やりたいことはテキストのデータを Excelの表に埋めたいのですが計算式のあるセルは計算式を残したまま飛ばしたいことです。

何か良い方法をご存じの方がいらっしゃったらお教え下さい。
メンテを考えて極力シンプルに制限できたらなと考えています。

よろしくお願いいたします。

回答No.2

imogasi

VBAぐらいしか思いつかない。VBAは質問者にとって想定外かもしれないが
（式があれば貼り付けを飛ばす、エクセルの用意された仕組みは無いのでは）。
例データ
テキストデータ　メモ帳で作成・保存。
1 23 - 32
2 21 - 45
3 45 - 12
4 31 - 45
1+tab+23+tab+tab+32+ENTERのようなデータが各行に入っている。
Sheet1のA1:D4
1 2 3 11
2 3 5 23
3 5 8 41
4 5 9 25
C列には=A1+B1のような式が入っていて、C列各行は現状データで計算されている。
A,B,D列は空白でもかまわない。
ーー
標準モジュールに
Sub test01()
i = 1 'シートとの1行目をポイント
Open "tabtest.txt" For Input As #1 'タブ入りテキストファイルを開く
While Not EOF(1)
Line Input #1, a '1行読み込み
MsgBox a
x = Split(a, Chr(9)) 'タブで分割
For j = 0 To UBound(x)
If x(j) = "" Then '空白ならシートの隣列へ
If Cells(i, j + 1).HasFormula Then
'MsgBox j
Else
MsgBox "式が無いがデータは飛んでいる 注意"
End If
Else
'MsgBox x(j)
Cells(i, j + 1) = x(j) 'i行J列セルへデータをセット
End If
Next j
i = i + 1
Wend
Close #1
End Sub
これを実行すると
Sheet1
A1:D4
1 23 24 32
2 21 23 45
3 45 48 12
4 31 35 45
シートのC列の式は壊れず、もと入っていた式として働いている。
ーー
本来はシートにデータをセットしてから、別途式を設定すれば、仕舞い（簡単）かと思うが。

お礼

短時間に詳細な回答を誠にありがとうございます。ペコ
ＶＢＡやマクロを組めばほとんどのことは可能かと思います、１つの解ではありますね。

＞本来はシートにデータをセットしてから、別途式を設定すれば、仕舞い（簡単）かと思うが。

確かに今まではこのやり方です。
ペーストすると式が消えるので他の計算式の消えていないセルからコピーしなおす。
ただこれだと事故の元なので。
計算式がＣ，Ｅ，Ｇ列に設定されているとメンテを考えてどうしてもＥＦＧ列というレイアウトにして計測結果がわかりづらくなるという循環になりますし・・・。

ただ提出まで考えると大がかりにＶＢＡで組むより現実的なのかも知れません。

＞（式があれば貼り付けを飛ばす、エクセルの用意された仕組みは無いのでは）。

・タブの替わりに別の入力値でセルそのものを上書きではなくスキップさせる
・Excelのオプションでタブで上書きしないように設定する
・入力規制やセルの保護でエラーのでなかったセルは有効にする設定が出来る

などがあれば良かったのですが。

短時間にＶＢＡまのソースまで提供していただいてありがとうございました。