締切済み

VBSでExcelから行を取り出す

  • 困ってます
  • 質問No.9398480
  • 閲覧数82
  • ありがとう数0
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 0% (0/2)

5000行ほどの表がExcelにあります。
A列に5桁のアルファベットが書いてあり、それをキーにして1行丸ごととってきて欲しいです。
1:テキストボックスに5桁のアルファベットを入れる。
2:入れた5桁のアルファベットを検索しヒットしたら別のExcelに1行貼り付ける

回答 (全2件)

  • 回答No.2

ベストアンサー率 47% (141/298)

日数が立っているので、解決済みかもしれませんが、閉め切っていなので、作ったものを載せておきます。
VBS と書いてありますが、VBA を使いました。
別のExcel は"Book2.xlsx"としました、変更して下さい。また、実行前に開いておいて下さい。
'
Option Explicit
'
Sub Macro1()
'
  Dim What As String
  Dim Find As Object
  Dim Row As Long
'
  What = InputBox("検索文字")
'
  If What = "" Then
    End
  End If
'
  Set Find = [A:A].Find(What)
'
  If Find Is Nothing Then
    MsgBox "ありません", vbCritical
  Else
    With Workbooks("Book2.xlsx").ActiveSheet
    Row = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    Rows(Find.Row).Copy .Rows(Row)
    End With
  End If
End Sub
Be MORE 7・12 OK-チップでイイコトはじまる
  • 回答No.1

ベストアンサー率 32% (176/541)

神社仏閣にお参りするみたいに、願い事書いても何も起こらないよ。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
このQ&Aにこう思った!同じようなことあった!感想や体験を書こう
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
このQ&Aのテーマ

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


より良い社会へ。感謝経済プロジェクト始動

ピックアップ

ページ先頭へ