Excel VBA 製作所コミュの連続した数字で飛び飛びの数字のところに行挿入するには

お久しぶりです
競馬のデータをウェブからコピーペーストしてるのですが
仮に
　　　Ａ　　　Ｂ　　　　Ｃ　　Ｄ　　　Ｅ　　　Ｆ　　
　　日曜日場所 R 距離状
　8月11日日小倉 1R T1200 良
　8月11日日小倉 2R T2000 良
　8月11日日小倉 3R T1200 良
　8月11日日小倉 5R D1000 良
となってる表を
Ａ　　Ｂ　　　　Ｃ　　Ｄ　　　Ｅ　　　Ｆ　　
　　　　日曜日場所 R 距離状
　8月11日日小倉 1R T1200 良
　8月11日日小倉 2R T2000 良
　8月11日日小倉 3R T1200 良
　8月11日日小倉 4R -　　　 -
　8月11日日小倉 5R D1000 良
みたいにしたくて
出来たのは出来たのですが
別のシートにコピーペーストした時に
　　　　　Ａ　　　Ｂ　　　　Ｃ　　　Ｄ　　　Ｅ　　　　　
　　　　日曜日場所 R 距離状
　8月11日日小倉 1R T1200 良
　8月11日日小倉 2R T2000 良
　8月11日日小倉 3R T1200 良
#REF #REF #REF 4R -　　　 -
　8月11日日小倉 5R D1000 良
になってしまいました
いろいろ考えて条件分岐にして
1 E列に「-」がある行を選択する
2　その行の一行上に移動する
3　移動した行のAからC列をコピーペーストする
という風にしたらいいのではと思うのですが構文の書き方がわからなくて困ってます
助けてください

コメント(21)

最初
全て
最新の40件

[1] mixiユーザー 11月06日 04:02

#REFというエラーが出るということは、そこに何か式が入力されているんですよね？
どんな式ですか？
また#REFというエラーは参照先がないことを意味しています。参照しているセルとの位置関係、シート名など問題点はありませんか？

[2] mixiユーザー 11月06日 09:29

>>[001]
Ａは日付Ｂは曜日Ｃは場所ですが

[3] mixiユーザー 11月06日 17:39

コピペするときに「形式を選択して貼り付け」で値を選べばよいのでは？

[4] mixiユーザー 11月07日 08:45

>>[2]
それはわかっていますが・・・。
今あるものを利用できないかと思い入力されている「式」が知りたかったのですが、うまく伝わらなかったようです。

やりたいこと1-3を実現するなら、僕ならFor nextあるいはDo Loopで上から順に列Eの値についてIfで「-」かどうかを判別し、「-」があったらその行番号をもとに1行上のデータをコピー＆ペーストするでしょうか。

[5] mixiユーザー 11月07日 18:22

>>[4] 私も投稿してからその方法考えましたが　構文がわからなくて

[6] mixiユーザー 11月07日 18:31

>>[5]
どこがわからないのでしょうか？
まったくわからないのでしょうか？

[7] mixiユーザー 11月07日 18:57

>>[6] はいすいません
全くわかりません　教えていただけるとありがたいです

[8] mixiユーザー 11月08日 11:34

>>[7]
「新しいマクロの記録」を利用して調べると、見えてくるんじゃないかな。

[9] mixiユーザー 11月08日 18:52

>>[8] ありがとうございます。　少しやってみます　尚明日の夕方より出張なので
書き込みが遅くなるかもしれませんすいません

[11] mixiユーザー 11月08日 21:54

記録でしたところ
検索の部分だけですが
Cells.Find(What:="-", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
となって　そこからoffsetで上に移動　で　A-Cをコピーペーストの流れでいいですか

[12] mixiユーザー 11月10日 17:27

>>[008]
今帰って来ました　よろしくお願いいたします

[13] mixiユーザー 11月10日 18:57

>>[12]
　よろしくと言われても．．．．．．何でもサポートは出来ませんよ。

[14] mixiユーザー 11月10日 19:41

>>[013]
１１の通りでいいのでしょうか

[15] mixiユーザー 11月10日 19:53

>>[14]
　見ただけでは私には判りませんし、それを検証する時間も裂けません。
　ご自分で検証して確かめてみて下さい。

[16] mixiユーザー 11月10日 19:55

>>[015]
わかりました検証後また書きます

[17] mixiユーザー 11月10日 22:47

>>[7]
>全くわかりません　教えていただけるとありがたいです
ですと、ちょっと無理だと思いますよ。

失礼ですけれども、「教えて下さい」じゃなくて、「作って下さい」のレベルのように思えます。
そうじゃないかも知れないですが、手取り足取りの教授は、ここでは無理です。

まずは、優しいＶＢＡの本の１冊（いや半分）でも読むことをお勧めします。

[18] mixiユーザー 11月11日 08:18

Sub CheckCellE()
Dim endRow As Long
Dim i As Integer

endRow = Cells(Rows.Count, 1).End(xlUp).Row 'Find the end of the row
For i = 1 To endRow
' E列に「-」がある行を選択する
If Cells(i, 5).Value = "-" Then　　
'その行の一行上に移動する , 移動した行のAからC列をコピーペーストする
Range(Cells(i - 1, 1), Cells(i - 1, 3)).Copy Destination:=Cells(i, 1)
End If
Next i

End Sub

このままですと1Rのデータがない場合には意図したようにはなりませんね。

[20] mixiユーザー 11月11日 19:21

>>[18] 有難うございます少し試してみます

[21] mixiユーザー 01月31日 16:37

やってみました

sub conv()

dim sI as long
dim sJ as long
dim sP as long
dim tbl(11,6) as variant

'テーブルに11R分の無しデータを準備
for sI=1 to 11
tbl(sI,1)=cells(2,1):tbl(sI,2)=cells(2,2):tbl(sI,3)=cells(2,3)
tbl(sI,4)=trim(str(sI)) & "R"
tbl(sI,5)="-":tbl(sI,6)="-"
next

'nRが存在するものをテーブルにセット
sP=Cells(65536,1).End(xlUp).Row
for sI=1 to 11
for sJ=2 to sP
if tbl(sI,4)=cells(sJ,4) then tbl(sI,5)=cells(sJ,5):tbl(sI,6)=cells(sJ,6)
next
next

'セルに書き出す
for sI=1 to 11
for sJ=1 to 6
cells(sI+1,sJ)=tbl(sI,sJ)
next
next

'書式を整える
Range("A2:F12").Select
Selection.NumberFormatLocal = "m""月""d""日"""
With Selection.Font
.Name = "ＭＳＰゴシック"
.Size = 10
.ColorIndex = xlAutomatic
End With

end sub

ログインすると、残り2件のコメントが見れるよ