|
▼エクセル勉強中 さん:
> その100枚のシートを一つのシートにまとめたい
> まとめ方
> 範囲
> 列はA16からJ16
> A16行は見出しなのでコピーは不要
フィルタを使ってコピーする案です。
Sub tryA()
With Range("C16", Cells(Rows.Count, "C").End(xlUp)) _
.Offset(, -2).Resize(, 7)
.Select '確認用
.AutoFilter Field:=3, Criteria1:="<>"
If .Columns(1).SpecialCells(xlVisible).Count > 1 Then
'確認用
If MsgBox("Copyしますか?", vbOKCancel) = vbOK Then
Intersect(.Cells, .Offset(1)).Select '確認用
MsgBox "この範囲を別シートへコピーします"
End If
End If
.AutoFilter
End With
End Sub
でも、A列もB列も 114行まで 数式が入っているんですか?
どんな式でしょう?
|
|