Excel操作(列の読み取り)を使って、別のファイルへ転記したいのですが、

元データが千円単位で、転記先が１円単位のため、

script内で×1000を組み込みたいです。

変数を１件ずつ四則演算で×１０００するのは、

件数＆ファイル数が多いので避けたいです。。

試しにscriptをいじって結果が戻ってくるようには作れたのですが、

基本を理解していないので、

おかしくないかアドバイスをいただけませんでしょうか？

最後の『.value』がついたままだと結果がブランクになるので、

『.value』を消したのですが、消して良かったのか？

代わりになるものがあれば教えてください。

■Excel操作(列の読み取り)

＜オリジナル＞

' ====指定されたセルを取得する========================

Set cell = Nothing
On Error Resume Next

current_restu_no = int(current_restu)
Set cell = worksheet.Cells(1, current_restu_no)
SetUMSVariable $1行$, cell.value

↓　↓　↓

＜改変したもの＞

' ====指定されたセルを取得する========================

Set cell = Nothing
On Error Resume Next

current_restu_no = int(current_restu)
s = 1000

Set cell = worksheet.Cells(1, current_restu_no)
A = cell * s
SetUMSVariable $1行$, A