|
遅くなりすみません。
マクロが2種類となりましたが、目的は達成できました。
ありがとうございました。
Sub Sgy1()
Dim GYo As Long
Dim myStr As String
Dim tmp As Variant
For GYo = 6 To 10000
If Cells(GYo, 4).Value = 1 Then
myStr = Cells(GYo - 2, 4).Value
tmp = Split(Cells(GYo - 2, 4), " ")
Cells(GYo, 1) = tmp(0)
Cells(GYo, 2).Value = Mid(myStr, InStr(myStr, " ") + 2, InStr(myStr, "年") - InStr(myStr, " ") - 2)
Cells(GYo, 3).Value = Mid(myStr, InStr(myStr, "年") + 1, InStr(myStr, "月") - InStr(myStr, "年") - 1)
End If
Next GYo
End Sub
Sub Sgyo2()
Dim GYo As Long
Dim myStr As String
Dim tmp As Variant
For GYo = 6 To 10000
If 1 < Cells(GYo, 4).Value And Cells(GYo, 4).Value <= 100 Then
Cells(GYo, 1).Value = Cells(GYo - 1, 1).Value
Cells(GYo, 2).Value = Cells(GYo - 1, 2).Value
Cells(GYo, 3).Value = Cells(GYo - 1, 3).Value
End If
Next GYo
End Sub
|
|