VBAコピーコラム＆ペースト式だけ - いない値 - 次の列へ

Question

VBAコピー列とペースト式のみ - ない値 - 次の列へ

スプレッドシートの列Bの値と数式のランダムなミックスを持っています。私はVBAを使用してその列を次の列にコピーし、数式（値ではない）を列Cにコピーしたいと思います。次のVBAを使用すると成功しましたが、Bを超えるすべての列を無限大にコピーします最初の列の後にコピーを停止したい）。

Sub Copy_Column_Formulas_NOvalues() 
' 
' Copy_Column_Formulas_NOvalues Macro 
' 
Dim oSheet As Worksheet 
Dim rng As Range 
Dim cel As Range 
Set oSheet = Sheets("Sheet1") 
With oSheet 
    Set rng = .Range(.Range("B1"), .Range("B" & .Rows.Count).End(xlUp)) 
    For Each cel In rng 
     If Left(cel.Formula, 1) = "=" Then 
      Range(cel.Offset(, 1), cel.Offset(, 1).End(xlToRight)).FormulaR1C1 = cel.FormulaR1C1 
      End If 
    Next cel 
End With 
End Sub 

Answer 1

ニーズに従って変更Sheet3名前をこの簡単なマクロを試してみて、それが動作するかどうか私に知らせて、

Sub Copy_Column_Formulas_NOvalues() 
Dim i As Long, j As Long 
For i = 1 To Sheets("Sheet3").Cells(Rows.Count, "B").End(xlUp).Row 
If Cells(i, 2).HasFormula Then 
    Cells(i, 3) = Cells(i, 2).Formula 
End If 
Next i 
End Sub 

。