|
▼初心者ごろう さん:
こんにちは。
提示のマクロコードを 文章にすると、こういうことですか?
Sub 値だけ貼付けVer2()
Const myFolder = "\\kkk\hh\III\YY\DDDDD\DDD\PPPPP\"
' Application.ScreenUpdating = False
'
'(1)『その他.xls』を開いて「その他」[A13:L13]以降全行を Copy
' → 値貼り付け『集計.xls』「集計」[A13]
' 開いたBookを(保存して?) 閉じる
'(2)『13.xls』を開いて
' Sheet「QC」[A13:L13]以降全行を Copy
' → 値貼り付け『集計.xls』「集計」[A列最終行に追加]
' Sheet「AA」の[A13:L13]以降全行を Copy
' → 値貼り付け『集計.xls』「集計」[A列最終行に追加]
' 開いたBookを(保存して?) 閉じる
'(3)『14.xls』を開いて
' Sheet「BB」の[A13:L13]以降全行を Copy
' → 値貼り付け『集計.xls』「集計」[A列最終行に追加]
' 開いたBookを(保存して?) 閉じる
' Application.ScreenUpdating = true
End Sub
|
|