それ以外のセル行の値を取得する場合は、空白のセルと式のみを使用します。

Question

Excel式ではなく、VBAを使用してセルを取得する方法はありますか？与えられた数値を返す値がある場合。データがない場合と同様にa = A1でない場合のように空白

例では、 の列Aには、各行が1,2,3行下になる式があります。 B列には値（A1、A2など）が表示される式がありますが、空白で表示され、数式はそのまま残ります。

私はまた、回避策と見なすことができる特別なコピーと貼り付け方法も知っていますが、これを行うより良い方法があるのか​​どうか不思議です。

Sub CopyCol() 

     Sheets("Sheet3").Columns(10).Copy 

     Sheets("Sheet3").Columns(10).PasteSpecial xlPasteValues 

End Sub 

ありがとうございました。

Answer 1

この使用する：あなたが;;;カラムBの番号書式を変更しようとしたことがあり

Option Explicit 

Public Sub CopyCol() 
    Dim ur As Range, col1 As Variant, col2 As Variant, r As Long 

    Set ur = ThisWorkbook.Sheets("Sheet3").UsedRange 

    ur.Columns("B").Clear 
    col2 = ur.Columns("B") 
    col1 = ur.Columns("A") 

    If Not IsEmpty(col1) Then 
     If IsArray(col1) Then 
      For r = 1 To UBound(col1) 
       If Len(col1(r, 1)) > 0 Then col2(r, 1) = col1(r, 1) 
      Next 
     Else 
      col2 = col1 
     End If 
     ur.Columns("B") = col2 
    End If 
End Sub