| |
▼エクセル勉強中 さん：
> その100枚のシートを一つのシートにまとめたい
> まとめ方
> 範囲
> 列はＡ16からＪ16
> 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行まで 数式が入っているんですか？
どんな式でしょう？
|
|
kanabun
- 15/6/27(土) 11:26 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
