テキストファイルで50万行のファイルがあります。
例えばこのファイルの10万行目~20万行目を選択してコピーしたいのですが方法はあるのでしょうか?
もしあるならば教えて頂きたいです。

A 回答 (1件)

この質問は、マウスでドラッグするにしてもかったるいじゃないか、という


ことでしょうか?

設定次第なのですが、あまりカストマイズしていなければ、SHIFTキーを押すと
ファンクションキーの F6 が「選択開始」になっていませんか?

これを使うと、指定行へのジャンプと組合わせて、割と簡単にすることができます。

(1) メニューの「検索」→「指定行」で開始行(100000)へ飛ぶ
(2) SHIFT+F6キーで「選択開始」をする
(3) メニューの「検索」→「指定行」で終了行(200000)へ飛ぶ
(4) 範囲が選択されているはずなので、お好みのコピー(ファンクションキーでも、選択範囲の右クリックでも)をしてください


# 秀丸なんて久しぶりに起動しました。実際に 10万行の範囲選択が出きるか
# どうかまでは確認してません
    • good
    • 0
この回答へのお礼

ありがとうございます。
教えて頂いた方法で出来ました。とても助かります。

お礼日時:2001/12/25 16:47

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルで特定の列だけを抽出してcsvで保存したい

エクセルで特定の列だけを抽出してcsvで保存したい

例えば、A列:住所、B列:氏名、C列:電話番号といった3つの列がありそれぞれデータがはいっているとします(図参照)。
そしてcsvとして書き出すときにB列とC列だけを書き出したい場合どのようにすればよいでしょうか。
この場合、書き出すときにA列だけを一旦削除、などということはしたくないです。
また1列目のタイトルも書き出さないようにしたいです。
ご教授よろしくお願いいたします。

Aベストアンサー

#2です。非連続な列群を指定した場合に対応させてみました。ご参考まで。
Unionに各範囲を与えるところは、ご自分でお願いします。
Sub test()
Dim targetRange As Range, myArea As Range, myColumn As Range
Dim i As Long, j As Long, columnCount As Long
Dim buf As Variant, buf2 As String
Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
Set targetRange = Union(Range("a1:a3"), Range("c1:d3"), Range("f1:f3"))
'データチェック 先頭行位置、行数の一致チェック 必要ならご自分で作成下さい。
'If Not checkRanges(targetRange) Then Exit Sub
For Each myArea In targetRange.Areas
columnCount = columnCount + myArea.Columns.Count
Next myArea
With FSO.createTextFile("C:\Sample.txt", True) 'overwrite
For i = 1 To targetRange.Areas(1).Rows.Count
ReDim buf(1 To columnCount)
j = 1
For Each myArea In targetRange.Areas
For Each myColumn In myArea.Columns
buf(j) = myColumn.Cells(i).Text 'Value
j = j + 1
Next myColumn
Next myArea
buf2 = Join(buf, ",")
.writeline buf2
Next i
.Close
End With
End Sub

#2です。非連続な列群を指定した場合に対応させてみました。ご参考まで。
Unionに各範囲を与えるところは、ご自分でお願いします。
Sub test()
Dim targetRange As Range, myArea As Range, myColumn As Range
Dim i As Long, j As Long, columnCount As Long
Dim buf As Variant, buf2 As String
Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
Set targetRange = Union(Range("a1:a3"), Range("c1:d3"), Range("f1:f3"))
'データチェック 先頭行...続きを読む


人気Q&Aランキング