![]() ![]() ![]() Ws.Cells(iRow, ANALYSIS_ROW).Offset(iIndex).Value2 = iSplit(iIndex)Īpplication.Calculation = xlCalculationAutomatic ![]() ISize = UBound(iSplit) - LBound(iSplit) + 1įor iIndex = LBound(iSplit) To UBound(iSplit) ISplit = Split(ws.Cells(iRow, ANALYSIS_ROW).Value2, ",") Cells(.Rows.Count, ANALYSIS_ROW).End(xlUp).Rowįor iRow = lastrow To DATA_START_ROW Step -1 Worksheets("Sheet4").Copy After:=.Worksheets("Sheet4") Option ExplicitĪpplication.Calculation = xlCalculationManual ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |