Excel Forum

Code: Select all

Sub Macro2()
'
' Macro2 Macro
Dim i As Integer
Dim n As Integer
'-------------------------------------------------
Range("h2").Select
'For n = 2 To 6
For i = 1 To Range("d2").Value

ActiveCell.Value = Cells(2, 1).Value + i - 1 'หยุดตามค่าD2
ActiveCell.Offset(i, 0).Select

Next i
'Next n
'-------------------------------------------------
For i = 1 To Range("d3").Value
Range("h2").End(xlUp).Select
Range("h2").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(3, 1).Value + i - 1
'ActiveCell.Offset(i, 0).Select

Next i
'Next n
'-------------------------------------------------
For i = 1 To Range("d4").Value
Range("h2").End(xlUp).Select
Range("h2").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Cells(4, 1).Value + i - 1 'หยุดตามค่าD2
'ActiveCell.Offset(i, 0).Select

Next i
'Next n


End Sub

Code: Select all

Sub Macro2()
[h2:h2000].ClearContents
Dim i As Integer

For i = 2 To 6 
Cells(i, 1).Select  
ActiveCell.Offset(0, 7).Select 

Cells(Rows.Count, 8).End(xlDown).Select  
Cells(Rows.Count, 8).End(xlUp).Select       

ActiveCell.Offset(1, 0).Select  

For dcol = 1 To Cells(i, 4).Value 

ActiveCell.Value = Cells(i, 1).Value + dcol – 1 
ActiveCell.Offset(1, 0).Select


Next dcol

Next i
End Sub