人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Sub NuruSagashi()
Dim Row As Integer
Dim myFirst As String
Dim myKekka As Range

Sheets(1).Select
With Range("C1:C600")
Set myKekka = .Find(What:="#N/A")
If Not myKekka Is Nothing Then
myFirst = myKekka.Address
Do
Row = ActiveCell.Row
x = Sheets(2).Cells(600, 1).End(xlUp).Offset(1, 0).Row
Sheets(2).Cells(x, 1).Value = Sheets(1).Cells(Row, 1).Value
Set myKekka = .FindNext(After:="#N/A")
Loop Until myKekka.Address = myFirst
End If
End With
End Sub

●質問者: Motonori
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:#N/A AS LOOP nothing SELECT
○ 状態 :キャンセル
└ 回答数 : 0/0件

回答がありません
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ