ihara/VBA のバックアップ(No.2) - 都市基盤計画研究室

バックアップ一覧
ソースを表示
ihara/VBA は削除されています。
- 1 (2009-05-23 (土) 17:01:07)
- 2 (2009-05-23 (土) 17:56:36)
- 3 (2009-05-23 (土) 17:56:36)
- 4 (2009-05-23 (土) 17:56:36)
- 5 (2018-04-24 (火) 20:52:49)
- 6 (2024-11-01 (金) 15:43:01)
- 7 (2024-11-12 (火) 13:17:51)

Columns("A:A")

↑

†

Range("A1").CurrentRegion?.End(xlDown).Row

↑

†

Cells(ActiveSheet?.Rows.Count, 1).End(xlUp).Row

↑

†

↑

†

Worksheets("Sheet1").Name

↑

†

↑

†












       Range("Q2:Q" & rows) = Left(MyDate, 8)
       Range("R2:R" & rows) = Mid(MyDate, 10, 2)
       Range("S2:S" & rows) = Mid(MyDate, 12, 2)

   End Sub

↑

Tips †

↑

†

Application.ScreenUpdating? = False

↑

†

Sub MergeSheets?()

 Dim intLoop As Integer
 

 Application.ScreenUpdating = False
 

 Worksheets.Add before:=Worksheets(1), Count:=1
 
 For intLoop = 2 To Worksheets.Count

   Worksheets(intLoop).Select
   Range("A1").CurrentRegion.Select
   If intLoop > 2 Then
     Selection.Resize(Selection.rows.Count - 1).Offset(1).Select
   End If
   Selection.Copy

   Worksheets(1).Select
   If intLoop = 2 Then
     Range("A1").Select
   Else
     Cells(ActiveSheet.rows.Count, 1).End(xlUp).Offset(1).Select
   End If
   ActiveSheet.Paste
 Next intLoop
 

 Application.CutCopyMode = False
 Worksheets.Select
 Range("A1").Select
 Worksheets(1).Select
 

 Application.ScreenUpdating = True

End Sub

ihara