1 回答
参考になったと評価 このQ&Aは参考になりましたか?
その他の解決方法を知っていますか?
回答する
全般
34
Views
質問者が納得普通に考えれば、こんな感じかと。
Sub Sample()
Dim rNum As Long
For rNum = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If IsDate(Cells(rNum, 1).Value) Then
Cells(rNum, 4).FormulaR1C1 = "=RC[-2]+RC[-1]"
End If
Next rNum
End Sub
【追記】
A列に「dd」以外の日付形式が設定されたセルもある...
4372日前view34