マクロで特定行を含まずコピーする方法を教えてください。

質問

マクロで特定行を含まずコピーする方法を教えてください。

社内で使っている1ヶ月分の売り上げを表にしていて、全てのセルに計算式が入っている為、とても重くなっています。ので、過去日付のところは、コピーして値で貼りつけたいと思っています。

名前　　6/1　　6/2　　6/3　　6/4　　6/5・・・・
田中(1)　　数字・・・・
田中(2)　　数字・・・
田中(3)　　数字・・・
田中(4)　　数字・・・
田中(5)　　数字・・・
田中(6)　　数字・・・
田中(7)　　数字・・・
合計　　　合計数
鈴木(1)　　数字・・・
鈴木(2)　　数字・・・
鈴木(3)　　数字・・・
鈴木(4)　　数字・・・
鈴木(5)　　数字・・・
鈴木(6)　　数字・・・
鈴木(7)　　数字・・・
鈴木合計　　数字・・・
　　・
　　・
　　・
（５０００ほどの行があります）

といったような表で、名前の(1)～(7)にも計算式が入っており、それをコピーして値で貼りつけをしたいのですが、合計欄は計算式を残したままコピーしたいのです。

どなたかお知恵をおねがいします。

回答No.2

mt2008 · ベストアンサー

> というのを見つけましたが、★の部分が偶数行（？）の指定の為、私が作っている表には当てはまらなく困っています。

私が以前回答した時のコードですね。
コードの内容をちゃんと理解すればちょっとの修正で利用できます。

For i = 2 To Range("A" & CStr(Rows.Count)).End(xlUp).Row Step 2
　Range(Cells(i, 2), Cells(i, nTargetCol)).Select

↓

For i = 2 To Range("A" & CStr(Rows.Count)).End(xlUp).Row Step 8
　Range(Cells(i, 2), Cells(i+6, nTargetCol)).Select

お礼

mt2008さん
ありがとうございます。
私の勉強不足でした。もっとコードが理解できるように勉強したいと思います。

本当にたすかりました。ありがとうございます。

回答No.1

qyukip

合計欄に「合計」と付いているのが条件ですが、
まずオートフィルタをかけ、「合計」を含まない行を抽出してコピーします。
貼り付ける際に形式を指定して貼り付け→値　を選択して貼り付けます。

次にオートフィルタで「合計」を含む行を抽出してコピーし、貼り付けます。
参考になれば幸いです。

補足

qvukipさん　
早速の回答ありがとうございます。

私の説明不足なのですが、全体をコピーして貼り付けするのではなく、過去日付の部分のみをコピー貼り付けしたいんです。

いろいろ探してみて

Sub Sample()
　　Dim nTargetCol As Long
　　Dim i As Long

　　Application.ScreenUpdating = False
　　nTargetCol = Evaluate("MATCH(TODAY()-1,1:1,1)")
　　For i = 2 To Range("A" & CStr(Rows.Count)).End(xlUp).Row Step 2 ★
　　　　Range(Cells(i, 2), Cells(i, nTargetCol)).Select
　　　　Selection.Copy
　　　　Selection.PasteSpecial Paste:=xlPasteValues
　　　　Application.CutCopyMode = False
　　Next i
　　Application.ScreenUpdating = True
End Sub

というのを見つけましたが、★の部分が偶数行（？）の指定の為、私が作っている表には当てはまらなく困っています。
偶数行ではなく８行目ごとを省くといった構文はないでしょうか？