Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6908 / 76732

←次へ　｜　前へ→


	【75420】Re:値の貼り付け方法

マナ - 14/3/22(土) 17:20 -


	引用なし

	パスワード

おそらく、こうでしょうか。

Option Explicit

Sub 抽出月()
　　Dim 終行 As Long

　　Application.ScreenUpdating = False

　　Range("B7:R35").ClearContents

　　Range("T6:Z400").AdvancedFilter _
　　　　Action:=xlFilterInPlace, _
　　　　CriteriaRange:=Range("GG1:GI2"), _
　　　　Unique:=True
　　Range("T6:Z400").Copy
　　Range("B6").PasteSpecial Paste:=xlPasteValues
　　ActiveSheet.ShowAllData
　　
　　終行 = Range("b36").End(xlUp).Row
　　
　　Range("B6:H" & 終行).Sort _
　　　　Key1:=Range("B6"), _
　　　　Order1:=xlAscending, _
　　　　Header:=xlYes
　　
　　Range("i7:i" & 終行).Formula = "=Sum(E7:H7)"
　　
　　Range("n7:r" & 終行).FormulaR1C1 = "=ROUNDDOWN(RC[-9]/RC4,1)"
'　 ↑がわかりにくければ、かわりに↓
'　　Range("n7:n" & 終行).Formula = "=ROUNDdown(E7/D7,1)"
'　　Range("o7:o" & 終行).Formula = "=ROUNDdown(F7/D7,1)"
'　　Range("p7:p" & 終行).Formula = "=ROUNDdown(G7/D7,1)"
'　　Range("q7:q" & 終行).Formula = "=ROUNDdown(H7/D7,1)"
'　　Range("r7:r" & 終行).Formula = "=ROUNDdown(I7/D7,1)"
　　　
　　Range("b7", "d" & 終行).Copy
　　Range("k7").PasteSpecial xlPasteValues
　　Application.CutCopyMode = False
　　
　　Range("r4").Select
　　Application.ScreenUpdating = True

End Sub

5 hits

▼

【75411】値の貼り付け方法 りんご 14/3/21(金) 16:21