![]() This method makes sure not to modify the cells to the left, to the right, or above the table of data, in case the table does not start in A1 or in case there is other data on the sheet besides the table. Given excellent and brief answer, the VBA function below might be a bit of an overkill, but it will hopefully be of some help to someone looking for a more "generic" solution. 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 |