|
▼ひまわりさん、ANS さん:
こんばんは
>最終行はどこになるのでしょうか?
C列で取ってみました。
一応できました。シートはアクティブシートです。
何かもっと簡単な方法がありそうですが、
ロジックが思い浮かびません。まだまだだなー!!
Sub test()
Dim myR As Range
Dim r As Range
Dim myAd As String
Set myR = Range("A1", Range("A" & Range("C65536").End(xlUp).Row))
For Each r In myR
With r
.Value = "営業所"
If .Offset(0, 3).Value <> "" Then
myAd = .Offset(0, 3).Address
'.Value = .Offset(0, 2).Value
.Offset(0, 1).Value = .Offset(0, 3).Value
Else
.Offset(0, 1).Value = Range(myAd).Value
End If
End With
Next
Set myR = Nothing
End Sub
|
|