Excelでコピー&貼り付け

B列にある日時を25個ずつA列に空白にコピーしたいのですが、
Excelの関数で、なにか良い方法は、ありますでしょうか？
これが、100組近くあり、手で、コピー&貼り付けでは
対応できなくて困っております。
マクロやVBAで対応といのが一番良いのは承知しておりますが、
学習ができていないため、マクロやVBAを今から習得するのは
難しい状況です。（本日中にどうにかしたいため）

m.ts10806

2021/09/08 02:24

>本日中にどうにかしたいためクラウドワークスなどにご依頼ください。

K_3578

2021/09/08 02:28

ようわからんけど間隔空けてコピーしたいだけならそのまま列をコピーして貼り付ければ良いだけでは？

行動規範の内容に同意します

回答2件

日時の前が必ず空白セルという条件なら、

B2セルに日時、B1セルは空白として、
A2セルに下記の式を設定。

excel
1=IFS(B1="",B2,B2="","",TRUE,A1)

これをデータのある最後の行までフィルダウン。

投稿2021/09/08 03:14

hatena19

総合スコア33795

退会済みユーザー

2021/09/08 08:30 編集

B2セルに日時、B1セルは空白として、 A2セルに下記の式を設定。の条件下で実行しましたが、 A2セルに貼り付けましたが、A2セルには、　=IFS(B1="",B2,B2="","",TRUE,A1)　が表示されているだけです。

hatena19

2021/09/08 12:16

=IFS(B1="",B2,B2="","",TRUE,A1) =の前に空白がありませんか。もし、あるなら、削除してください。

行動規範の内容に同意します

ベストアンサー

①手でやる派

B列をA列にコピー
先頭セルを選択
Shift+Cntl+↓ ・・・範囲選択
Cntl+D　　　　　　・・・FillDown
Cntl+↓ を２回　　・・・次の範囲の先頭へ移動
3-5を繰り返す

②マクロでやる派

VBA
1Sub test()
2    Dim c As Range
3    For Each c In Intersect(ActiveSheet.Columns(2), ActiveSheet.UsedRange).Cells
4        If IsDate(c.Value) Then c.Offset(0, -1).Resize(25).Value = c.Value
5    Next
6End Sub

投稿2021/09/08 02:54