Excel VBA質問箱 IV

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

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


35699 / 76732 ←次へ | 前へ→

【46229】Re:特定のセルだけコピーしたい
発言  ichinose  - 07/1/27(土) 14:02 -

引用なし
パスワード
   >私の説明不足の点がありました。すみません。
>
>>例えば、Sheet1のA、C列には、
>>
>>      A  B     C
>> 1    1      2007/1/27
>> 2    2      2007/1/27
>> 3    3      2007/1/27
>> 4    4      2007/1/27
>> 5    5      2007/1/28
>> 6    6      2007/1/29
>> 7    7      2007/1/30
>> 8    8      2007/1/31
>> 9    9      2007/2/1
>>10    10      2007/2/2
>>11    11      2007/2/3
>>12    12      2007/2/3
>>13    13      2007/2/3
>>14    14      2007/2/3
>>15    15      2007/2/3
>16
>17
>18
>19
>20
> .
> .
> .
>5000
>
>という具合にA列には、あらかじめ数値が入力されていて、C列に毎日、日付を入力していくというイメージです。
>
>よろしくお願いします。
>
>>そろそろループ処理の考え方に慣れていきましょう。
であるならば、基準にする列を変えるだけです。
Sub main()
  Dim rw2 As Long
  Dim rw1 As Long
  Dim newdate As Date
  With Worksheets("sheet1")
    rw2 = .Cells(.Rows.Count, "c").End(xlUp).Row
'                  ↑ここをaからcに変える
    newdate = .Range("c" & rw2).Value
    For rw1 = rw2 - 1 To 1 Step -1
     If .Range("c" & rw1).Value <> newdate Then Exit For
     Next rw1
    .Range(.Cells(rw1 + 1, 1), .Cells(rw2, 1)).Copy
    Worksheets("sheet2").Range("v6").PasteSpecial xlValue
    Application.CutCopyMode = False
    End With
End Sub

でいけると思います。

上記のように例を出すのは非常に良いことですよ。

1 hits

【46222】特定のセルだけコピーしたい さや 07/1/27(土) 6:26 質問
【46224】Re:特定のセルだけコピーしたい ichinose 07/1/27(土) 8:49 発言
【46226】Re:特定のセルだけコピーしたい さや 07/1/27(土) 12:58 質問
【46227】Re:特定のセルだけコピーしたい かみちゃん 07/1/27(土) 13:12 発言
【46230】Re:特定のセルだけコピーしたい さや 07/1/27(土) 14:34 質問
【46231】Re:特定のセルだけコピーしたい かみちゃん 07/1/27(土) 14:58 発言
【46233】Re:特定のセルだけコピーしたい さや 07/1/27(土) 15:25 発言
【46235】Re:特定のセルだけコピーしたい さや 07/1/27(土) 15:37 発言
【46236】Re:特定のセルだけコピーしたい かみちゃん 07/1/27(土) 15:46 発言
【46238】Re:特定のセルだけコピーしたい さや 07/1/27(土) 16:22 発言
【46239】Re:特定のセルだけコピーしたい かみちゃん 07/1/27(土) 16:35 発言
【46240】Re:特定のセルだけコピーしたい さや 07/1/27(土) 16:39 お礼
【46229】Re:特定のセルだけコピーしたい ichinose 07/1/27(土) 14:02 発言
【46234】Re:特定のセルだけコピーしたい さや 07/1/27(土) 15:27 お礼
【46228】Re:特定のセルだけコピーしたい Kein 07/1/27(土) 13:42 回答

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