|
▼さくら さん:
>ご提案頂いたフィルタ案でトライしてみたのですが私にはむりでした。
ぼくの提示した Sub tryA() に 「B列だけ転記する」ための◆の一行を
付け加えれば、御所望のことはできます。
(フィルタは一般機能ですから、まず手動でやってフィルタ操作を理解
するのが 近道かもしれません)
Sub tryB()
With Sheets("Sheet2")
.UsedRange.ClearContents
'条件をシートに書き出す
.Range("Z1:AA1").Formula = "=Sheet1!$A$1"
.Range("Z2").Formula = ">=10.01"
.Range("AA2").Formula = "<=10.05"
'◆ Sheet1の表よりB列だけ Sheet2のA列へ転記(見出しのコピー)
.Range("A1").Value = Sheets("Sheet1").Range("B1").Value
'フィルターAdvancedFilter 実行
Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("Z1:AA2"), _
CopyToRange:=.Range("A1")
.Activate
End With
End Sub
|
|