FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2018/12«│ 2019/01| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/02
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
19:08:34
Sub 式のコピー()
Dim MaxRow As Long
Dim MaxCol As Long
Dim namae As String
Dim ws
Dim g As Variant
For Each ws In Worksheets
If InStr(ws.Name, " (") <> 0 Then
namae = Left(ws.Name, InStr(ws.Name, " (") - 1)
With Worksheet(namae).UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With
s = Range(Worksheets(namae).Range("a1"), Worksheets(namae).Cells(MaxRow, MaxCol)).Formula
Exit For
End If
Next
Dim k As Variant
Dim i As Long, j As Long
For Each ws In Worksheets

With ws.UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With
k = Range(ws.Range("a1"), ws.Cells(MaxRow, MaxCol))
For i = 1 To MaxRow
For j = 1 To MaxCol
If InStr(s(i, j), "=") <> 0 Then
k(i, j) = s(i, j)
End If
Next
Next
Range(ws.Range("a1"), ws.Cells(MaxRow, MaxCol)) = k
Next
End Sub




コウペンちゃんってかわいいなあ。




コメント
コメントの投稿










トラックバック
トラックバックURL
→http://ayukt0526.blog.fc2.com/tb.php/438-4e4e77a0
この記事にトラックバックする(FC2ブログユーザー)
プロフィール

はなかな

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

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト