[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『値のみコピーしたい。』(まんじゅう)
値のみコピーしたいです。
w.Resize(, 3).Copy B.Sheets(h.Name).Range("B6").Offset(i).PasteSpecial Paste:=xlValues
↑でうまくいかないのですが、、、。
i = 0 With A.Sheets(s.Name) With .Range("A6", .Cells(Rows.Count, "A").End(xlUp)) For Each w In .SpecialCells(xlCellTypeVisible) w.Resize(, 3).Copy _ B.Sheets(h.Name).Range("B6").Offset(i) i = i + 1 If (i >= 22) Then Exit For Next End With
< 使用 Excel:Excel2010、使用 OS:Windows7 >
B.Sheets(h.Name).Range("B6").Offset(i).Resize(, 3).Value = w.Resize(, 3).Value
とかでどうですか?
(ウッシ) 2014/11/18(火) 16:43
ありがとうございます。
(まんじゅう) 2014/11/18(火) 16:47
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.