[[20140415125824]]　『計算式を抜くVBA』（GII）　ページの最後に飛ぶ

『計算式を抜くVBA』（GII）

お世話になります。

以前こちらで教えていただいた下記式ですが、
計算式を入れたシートで下記を走らせるため、
マクロ起動後におかしくなってしまいます。

そこで一番初めにシートの全コピー&値として貼り付けをして、
計算式を抜いた状態でマクロを動かせたいので
どなたか一番初めにシートの全コピー&値として貼り付けを
する式を挿入していただけませんか？

よろしくお願いします。

 Sub test()
     Dim a, i As Long, n As Long
     With Cells(1).CurrentRegion
        a = .Value: .ClearContents: n = 1
     End With
     For i = 5 To UBound(a, 2)
         Cells(n, 1).Resize(UBound(a), 5).Value = _
         Application.Index(a, Evaluate("row(1:" & UBound(a) & ")"), _
         Array(1, 2, 3, 4, i))
         n = n + UBound(a)
     Next
 End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

 もともと a = .Value が値を処理していると思いますが、
 本当に計算式が問題の原因でしょうか。
（Mook） 2014/04/15(火) 16:25

コメント返信：

[ 一覧(最新更新順) ]

[[20140415125824]] 『計算式を抜くVBA』（GII） ページの最後に飛ぶ

[[20140415125824]]　『計算式を抜くVBA』（GII）　ページの最後に飛ぶ