Option Explicit
Sub TEST()
Dim Brr, Crr, C&, i&, j&, xR, R&, T, V, Y, Z
Dim N&, Sh As Worksheet
Set Y = CreateObject("Scripting.Dictionary")
Set Sh = ActiveSheet
Brr = Range(Sh.[A1], Sh.Cells(Sh.UsedRange.Rows.Count, "AM"))
For i = 1 To [AM1].Column
Y(i & "C") = Columns(i).ColumnWidth
Next
For i = 1 To 15
Y(i & "R") = Rows(i).Rows.RowHeight
Next
For i = 16 To UBound(Brr)
If IsNumeric(Brr(i, [AK1].Column)) And Brr(i, [AK1].Column) <> "" Then
N = N + 1
For j = 1 To [AM1].Column
Brr(N, j) = Brr(i, j)
Next
End If
Next
Set Y("ªíÀY") = Range(Sh.[A1], Sh.[AM16])
Workbooks.Add
Y("ªíÀY").Copy [A1]
For i = 1 To [AM1].Column
Columns(i).ColumnWidth = Y(i & "C")
Next
For i = 1 To 15
Rows(i).Rows.RowHeight = Y(i & "R")
Next
Range([A16], [AM16]).ClearContents
Range([A16], [AM16]).Borders.LineStyle = 1
[16:16].Copy Rows("17:" & N + 15)
[A16].Resize(N, [AM1].Column) = Brr
End Sub§@ªÌ: Andy2483 ®É¶¡: 2022-12-13 15:50