Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35774 / 76807

←次へ　｜　前へ→


	【46229】Re:特定のセルだけコピーしたい

ichinose - 07/1/27(土) 14:02 -


	引用なし

	パスワード

>私の説明不足の点がありました。すみません。
>
>>例えば、Sheet1のＡ、Ｃ列には、
>>
>>　　　　　Ａ　　Ｂ　　　　　Ｃ
>>　１　　　　1　　　　　　2007/1/27
>>　２　　　　2　　　　　　2007/1/27
>>　３　　　　3　　　　　　2007/1/27
>>　４　　　　4　　　　　　2007/1/27
>>　５　　　　5　　　　　　2007/1/28
>>　６　　　　6　　　　　　2007/1/29
>>　７　　　　7　　　　　　2007/1/30
>>　８　　　　8　　　　　　2007/1/31
>>　９　　　　9　　　　　　2007/2/1
>>１０　　　 10　　　　　　2007/2/2
>>１１　　　 11　　　　　　2007/2/3
>>１２　　　 12　　　　　　2007/2/3
>>１３　　　 13　　　　　　2007/2/3
>>１４　　　 14　　　　　　2007/2/3
>>１５　　　 15　　　　　　2007/2/3
>１６
>１７
>１８
>１９
>２０
> .
> .
> .
>５０００
>
>という具合にＡ列には、あらかじめ数値が入力されていて、Ｃ列に毎日、日付を入力していくというイメージです。
>
>よろしくお願いします。
>
>>そろそろループ処理の考え方に慣れていきましょう。
であるならば、基準にする列を変えるだけです。
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