[[20141118163319]]　『値のみコピーしたい。』（まんじゅう）　ページの最後に飛ぶ

『値のみコピーしたい。』（まんじゅう）

値のみコピーしたいです。

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

コメント返信：

[ 一覧(最新更新順) ]

[[20141118163319]] 『値のみコピーしたい。』（まんじゅう） ページの最後に飛ぶ

[[20141118163319]]　『値のみコピーしたい。』（まんじゅう）　ページの最後に飛ぶ