Excel VBA質問箱 IV

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

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


49855 / 76733 ←次へ | 前へ→

【31778】Re:特定文字を含むセルの繰り返しコピー
回答  こたつねこ  - 05/11/30(水) 0:00 -

引用なし
パスワード
   みなさんこんばんは

表のレイアウトがわからないので、表の作り方によっては
誤動作の可能性もありますが、UsedRangeで私もひとつ

Sub Sample()
  Dim strS(0 To 1) As String
  Dim lngRow As Long
  Dim lngEND As Long
  
  With ActiveSheet
    lngEND = .UsedRange.Rows.Count
    For lngRow = 1 To lngEND
      If .Cells(lngRow, 3).Value = "営業所" Then
        strS(0) = "営業所"
        strS(1) = .Cells(lngRow, 4).Value
      End If
      .Range("A" & lngRow & ":B" & lngRow).Value = strS
    Next lngRow
  End With
End Sub

1 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 発言

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