スポンサーサイト

--–--–-- (--) --:--
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

選択したシートの式を削除する

2018–01–10 (Wed) 23:18
Sub 複数シート()
On Error Resume Next
Application.ScreenUpdating = False
Dim sh As Object
Dim kazu As Long
kazu = ActiveWindow.SelectedSheets.Count
Dim ichi As Variant
Dim i As Long
Dim MaxRow As Long
Dim MaxCol As Long
i = 0
ReDim ichi(kazu - 1)
For Each sh In ActiveWindow.SelectedSheets
ichi(i) = sh.Name
i = i + 1

Next sh
ActiveWindow.SelectedSheets(1).Select
For i = 0 To UBound(ichi)
MaxRow = 0
MaxCol = 0
Worksheets(ichi(i)).Activate
With Worksheets(ichi(i)).UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With
Worksheets(ichi(i)).Range("a1", Cells(MaxRow, MaxCol)).Value = Worksheets(ichi(i)).Range("a1", Cells(MaxRow, MaxCol)).Value
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
スポンサーサイト

« 時間以上で色を変更する | HOME |  最新PDF »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。