excel
' 現在のシートから一つ前のシートを比較 Sub CheckSheet() Dim i, j, endOfRow, endOfCol As Integer Set WS2 = ActiveSheet.Previous endOfRow = ActiveSheet.UsedRange.Rows.Count endOfCol = ActiveSheet.UsedRange.Columns.Count For i = 1 To endOfCol…
' 現在のシートから一つ前のシートを比較 Sub CheckSheet() Dim i, j, endOfRow, endOfCol As Integer Set WS2 = ActiveSheet.Previous endOfRow = ActiveSheet.UsedRange.Rows.Count endOfCol = ActiveSheet.UsedRange.Columns.Count For i = 1 To endOfCol…