Yardım Aynı Kitaptaki Tüm Sayfaları Alt Alta Birleştime

orhanyildiz2746 · 16 Eyl 2021

Merhaba, Pdf excele dönüştürme işlemi yaptığımı zaman tüm pdf sayfalarını ayrı bir excel sayfası olarak ekleyip tek bir kitapta topluyor. "Table 1" Sayfasından "Table 133" gibi fazla sayfa olması birleştirmeyi baya yorucu hale getiriyor acaba bunun kolay bir yolu var mıdır?
Excel Dosyası

lebom · 27 Eyl 2021

C++:

Sub Combine
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

Merhaba yukarıdaki kod tek sayfada birleştiriyor. Umarım işnize yarar.

Yardım Aynı Kitaptaki Tüm Sayfaları Alt Alta Birleştime

orhanyildiz2746

lebom