[µo°Ý] §PÂ_¦C¦L½d³ò

coke373

Sub ex()

    k = Sheets(2).Cells(9, Columns.Count).End(xlToLeft).Column

    For i = 11 To 96

       Sheets(2).Cells(i - 9, k + 1) = Sheets(1).Cells(i, 3)

    Next

    Sheets(2).Cells(1, k + 1) = Format(Year(Date), "0000") & Format(Month(Date), "00") & Format(Day(Date), "00")

End Sub
½Ð°Ý¥i¤£¥i¥H¦b¥H¤W«ü¥O¤J­±¥[¦Û°Ê¦C¦L,«ö½Æ»sŪ¨úªº¤º®e°µ½d³ò.
²a¤j´£¨Ñ

1. Sub TEST()
   
2. ActiveSheet.ResetAllPageBreaks
   
3. For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row - 1
   
4. ¡@¡@If Right(Cells(i, 1), 2) = "¦X­p" Then
   
5. ¡@¡@¡@¡@ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1)
   
6. ¡@¡@End If
   
7. Next i
   
8. End Sub
   
9. 
   
10. ¥[¤J¡e¤À­¶¡f½u¡A¦A¤â°Ê¦C¦L¡]¥i¤â°Ê«ü©w¦C¦L­¶¦¸¡^

½Æ»s¥N½X

­ã´£³¡ªL

Sub ex()
Dim xL As Range
Set xL = Sheets(2).Cells(1, Columns.Count).End(xlToLeft)(1, 2)
xL = Format(Date, "yyyymmdd")
xL(2, 1).Resize(86) = Sheets(1).[C11].Resize(86).Value
Range(xL, xL(Rows.Count, 1).End(xlUp)).Name = "'" & Sheets(2).Name & "'!Print_Area"
End Sub

coke373

¦^´_ 2# ­ã´£³¡ªL

ÁÂÁ ­ã¤jÀ°¦£
§Ú´N¬O·Q­n§Aªº¤è¦¡¡A§@³Ì«áÀˬd¦C¦L½d³ò¡C¥i¥H¸òµÛ½Æ»sŪ¨úªº½d³ò¡C
«ü¥O§Ú­nºCºC¬ã¨s¡C
Set xL = Sheets(2).Cells(1, Columns.Count).End(xlToLeft)(1, 2)
xL(2, 1).Resize(86)
½Ð°Ý¤U³o¨â¥y¬O¤°»ò·N«ä¡C

­ã´£³¡ªL

¦^´_ 3# coke373


Set xL = Sheets(2).Cells(1, Columns.Count).End(xlToLeft)(1, 2)  
__²Ä¤@¦C³Ì¥k«DªÅ®æªº¥k¤@ªÅ¥Õ®æ

xL(2, 1).Resize(86)
Sheet1 ½Æ»s½d³ò¦@86®æ

coke373

¦^´_ 4# ­ã´£³¡ªL

ÁÂÁ­ã¤j¡C²{¦b©ú¥Õ§ó¦h¤F¡C