ここから本文です

Excel VBA でA1~A10から値"0"を検索してとなりの値を他のセルにコピーする方法を...

kkk********さん

2013/12/217:42:19

Excel VBA でA1~A10から値"0"を検索してとなりの値を他のセルにコピーする方法を教えてください。
例えば、A4に0があった場合B4の値をC1にコピーするといった感じです。

A1~A50の中から"0"を検索して複数"0"があった場合そのとなりの値をC1,C2,C3と上から順番にコピーした値をはりつけていく方法を教えてください
よろしくお願いします

例えばA3,A5,A7に"0"があった場合B3,B5,B7にある値をC1,C2,C3にコピーして貼り付けたいです。

閲覧数:
549
回答数:
1
お礼:
500枚

違反報告

ベストアンサーに選ばれた回答

tbr********さん

2013/12/218:04:11

Dim i As Integer
Dim r As Range

i = 1
For Each r In Range("A1:A50")
If r.Value <> "" And r.Value = 0 Then
Range("C" & i).Value = r.Offset(, 1).Value
i = i + 1
End If
Set r = Nothing
Next r

といった感じですかね。

質問した人からのコメント

2013/12/2 18:12:02

ありがとうございました!!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる