دانلود رایگان پاورپوینت آنالیز شبکه (انگلیسی)

Network Analysis and Excel VABA

STEP 4: Loop through every cell in a column (Gets values in multiple rows)
”Variable declaration to hold the cell index during our loop
Dim curRow As Double
Dim colNum As Double
colNum = 1 ”Use this to specify which column to loop down

”The actual loop that figures out how many cells are filled in the column colNum
For curRow = 1 To ((wks.Cells(Rows.Count, colNum).End(xlUp)(2).Row) – 1)
wks.Cells(curRow, 2).Value = wks.Cells(curRow, 1).Value
Next curRow