|
▼浜口 さん:
新規ブックに以下のコードをコピーして実行してみて下さい
'========================================================
Sub main()
Dim ans As Range
Call mk_sample
On Error Resume Next
Set ans = Range("a2:e2").SpecialCells(xlCellTypeFormulas, xlNumbers)
If Err.Number = 0 Then
ans.Copy
Range("a4").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
On Error GoTo 0
End Sub
'================================================================
Sub mk_sample()
Range("a1:e1").Value = Array(1, 2, 0, 3, 4)
Range("a2:e2").Formula = "=if(a1=0,"""",a1)"
End Sub
あくまでも新規ブックですよ!!
a4:d4に1,2,3,4と表示されませんか?
|
|