[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『オートフィルタ抽出後KのセルにLのセルの値をを入れたい』(きりん)
いつも大変お世話になっております
ご教示頂けたら幸いです
表題通り オートフィルター抽出後KのセルにLのセルの値を入れたいのですが
どの様に書けば良いか解りません
宜しくお願いいたします
Sub need()
Dim sSd As Worksheet Dim XxX As Range Dim W As Range
Application.ScreenUpdating = False
With Sheets("FFG")
If .AutoFilterMode Then .AutoFilterMode = False .Range("A1").AutoFilter Set XxX = Intersect(.AutoFilter.Range, .AutoFilter.Range.Offset(1)) .AutoFilter.Range.AutoFilter Field:=1, Criteria1:="=5" If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
For Each W In XxX.Columns("K").Cells If Not Intersect(W, .AutoFilter.Range.Columns("K").SpecialCells(xlCellTypeVisible)) Is Nothing Then W.Value = (Range.Columns("L").Cells) ここの部分で引数は省略できませんと言うエラーが出ます .AutoFilterMode = False End With
ThisWorkbook.Save
End Sub
< 使用 Excel:Excel2010、使用 OS:Windows7 >
コードはよく読んでいません。
For Each があって、Nextがないので、このコードそのものはエラー以前に、動かないと思いますが?
いずれにしても表示された行のK列にL列の値を入れることだけでいえば
Dim c As Range
For Each c In Intersect(ActiveSheet.AutoFilter.Range, ActiveSheet.AutoFilter.Range.Offset(1)).Columns(1).Cells With c.EntireRow If Not .Hidden Then .Range("K1").Value = .Range("L1").Value End With Next
こんなコードで可能ですが。
(β) 2015/02/24(火) 18:24
(きりん) 2015/02/24(火) 18:29
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.