Excelについて質問します。 例えばここに3つのSheetがあります。それぞれｼｰﾄA、B...

hiyokosan_desuさん

質問です。
１．各シートのデータのタイトル行の位置を教えてください。（列の始めの位置も）

２．各シートのデータのひとつを選択して、Ｆ５、セル選択、アクティブセル領域
で、タイトル行を含むデータ範囲のみを選択できますか？

３．上記２．のように出来ない場合、最終行（65536）から上に向かった場合
（Ctrl＋↑）　で最終行が取得できるのは、どの列でしょうか？

４．各シート5000-10000行とすると、EXCEL2003までは最終行が65536なので
１枚のシートにはいらないのですが…。

５．各シートを縦に結合でいいんですよね。
================================
下記のもので試してください。タイトル行が３行目（１，２行目は空白）

EXCELの画面で、シート名のところ（通常Sheet1となっているところ）を右クリック、コードの表示を選択します。
VBEの画面が開きますので、メニューより「挿入」→「標準モジュール」を選択します。
下記のコードを貼り付けます。
-------------------------------------------------
Sub シート結合()
Dim TmpSheet As Worksheet
Dim Ws As Worksheet
Dim SrcRange As Range
Dim TargetRange As Range
Dim i As Long

For Each Ws In Worksheets
i = i + Ws.Range("A3").CurrentRegion.Rows.Count
Next
If i >= 65535 Then
MsgBox "データが多すぎます。" & i & " 行"
Exit Sub
End If
Application.Calculation = xlCalculationManual
Set TmpSheet = Worksheets.Add(after:=Worksheets(Worksheets.Count))
Set TargetRange = Range("B1")

For Each Ws In Worksheets
If Ws.Name <> TmpSheet.Name Then
Set SrcRange = Ws.Range("A3").CurrentRegion
If SrcRange.Rows.Count > 1 Then

If TargetRange.Address(0, 0) <> "B1" Then
Set SrcRange = SrcRange.Offset(1).Resize(SrcRange.Rows.Count - 1)
End If
SrcRange.Copy Destination:=TargetRange

TargetRange.Offset(, -1).Resize(SrcRange.Rows.Count).Value = Ws.Name
Set TargetRange = TmpSheet.Range("B65536").End(xlUp).Offset(1)
End If
End If
Next
Application.Calculation = xlCalculationAutomatic
End Sub
-------------------------------------------------
EXCELにもどります。

メニューよりツール、マクロ、マクロ、と進み

シート結合

を選択し、実行します。
A列に元のシート名がはいりますので、あとでA列を削除して下さい。
=============
追記：エラーチェックいれてみました。