|
お世話になります。
マクロ初心者なりに、試行錯誤しここまでたどり着く事が出来ましたが、うまく意図通りのマクロが組めません。良きアドバイスを頂ければと思います。
[やりたい事]
1.B列内にセル背景色:茶色のセルがあるか検索する(該当するセルが2つ存在します)
2.検索した結果のアドレス(変数)を格納する [例 B2,B10]
3.検索した上部のセル[例 B2]に数式が入力されているので、コピーする
4.検索した上、下セル範囲内[例 B2:B10]に数式を貼り付ける
→おそらく1〜3までは出来ていると思います。
4の数式の貼り付けをする際、セルにデータが入力されていると貼り付けされずに困っています。
[コード]
Sub 茶色セル選択()
Dim FoundCell As Range
Dim Addr As String
Dim SearchArea As Range
Dim FoundAddr() As String
Dim i As Long
With Application.FindFormat.Interior.ColorIndex = 53
End With
Set SearchArea = Worksheets("Sheet1").UsedRange.Columns(1)
Set FoundCell = SearchArea.Find(What:="", SearchFormat:=True)
If FoundCell Is Nothing Then Exit Sub
Addr = FoundCell.Address
Do
ReDim Preserve FoundAddr(i)
FoundAddr(i) = FoundCell.Address
Set FoundCell = SearchArea.FindNext(after:=FoundCell)
i = i + 1
Loop While FoundCell.Address <> Addr And Not FoundCell Is Nothing
Range("B2").Select
Selection.Copy
Range(Join(FoundAddr, ",")).Select
Selection.PasteSpecial Paste:=xlPasteFormulas
End Sub
よろしくお願いします。
|
|