Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


49860 / 76737 ←次へ | 前へ→

【31777】Re:特定文字を含むセルの繰り返しコピー
発言  ponpon  - 05/11/29(火) 23:31 -

引用なし
パスワード
   ▼ひまわりさん、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

0 hits

【31717】特定文字を含むセルの繰り返しコピー ひまわり 05/11/29(火) 11:31 質問
【31722】Re:特定文字を含むセルの繰り返しコピー Jaka 05/11/29(火) 11:55 回答
【31772】Re:特定文字を含むセルの繰り返しコピー ひまわり 05/11/29(火) 22:34 質問
【31775】Re:特定文字を含むセルの繰り返しコピー ANS 05/11/29(火) 23:00 発言
【31777】Re:特定文字を含むセルの繰り返しコピー ponpon 05/11/29(火) 23:31 発言
【31778】Re:特定文字を含むセルの繰り返しコピー こたつねこ 05/11/30(水) 0:00 回答
【31776】Re:特定文字を含むセルの繰り返しコピー wad 05/11/29(火) 23:29 発言
【31782】Re:特定文字を含むセルの繰り返しコピー ichinose 05/11/30(水) 7:36 発言

49860 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free