Добрый день! Подскажите пожалуйста, как 1 строку разделить на две или добавить к одной строке вторую, но что бы разом на всю таблицу. Объясняю. есть табличка. в ней строки. эти строки все надо разделить на 2 строки. план и факт. если добавлять по одной строке под каждую строку очень долго. как можно быстрее это сделать? пример прикрепляю. в файле поз.1 уже разделена. это пример того как должна выглядеть таблица.
Добрый день! Подскажите пожалуйста, как 1 строку разделить на две или добавить к одной строке вторую, но что бы разом на всю таблицу. Объясняю. есть табличка. в ней строки. эти строки все надо разделить на 2 строки. план и факт. если добавлять по одной строке под каждую строку очень долго. как можно быстрее это сделать? пример прикрепляю. в файле поз.1 уже разделена. это пример того как должна выглядеть таблица.Sench
Не надо "разделять на две строки", надо проставить значения в два блока столбцов - отдельно "План", отдельно "Факт". Я понимаю, что не хочется иметь повторно столбы-позиции 5-11, но иначе вы себе только усложняете расчеты (представьте, например, как должны будут выглядеть формулы для суммирования отдельно плана и факта по столбцу, в вашем начальном виде?)
А вообще, если правильно подходить, то вы вообще должны иметь две отдельных таблицы - отдельную для графика-плана, отдельную для занесения фактических данных по выполнению. А если совсем правильно подходить - то вы не должны вообще заполнять именно такую таблицу руками. Заполнять надо отдельную табличку, желательно в нормализованном виде, со строчками, описывающими показатели. А эту "красивую-кривую таблицу" вы уже можете просто собрать формулами (или макросами), или сводной таблицей... или вообще, оформите шаблон в Ворде и будете туда экспортировать данные, чтобы "крясиво напечатать".
Если же все же хочется иметь именно так, и именно ещё вчера - то решать это надо макросом. Который пробежится по вашей таблице и просто добавить строчки дополнительные.
Не надо "разделять на две строки", надо проставить значения в два блока столбцов - отдельно "План", отдельно "Факт". Я понимаю, что не хочется иметь повторно столбы-позиции 5-11, но иначе вы себе только усложняете расчеты (представьте, например, как должны будут выглядеть формулы для суммирования отдельно плана и факта по столбцу, в вашем начальном виде?)
А вообще, если правильно подходить, то вы вообще должны иметь две отдельных таблицы - отдельную для графика-плана, отдельную для занесения фактических данных по выполнению. А если совсем правильно подходить - то вы не должны вообще заполнять именно такую таблицу руками. Заполнять надо отдельную табличку, желательно в нормализованном виде, со строчками, описывающими показатели. А эту "красивую-кривую таблицу" вы уже можете просто собрать формулами (или макросами), или сводной таблицей... или вообще, оформите шаблон в Ворде и будете туда экспортировать данные, чтобы "крясиво напечатать".
Если же все же хочется иметь именно так, и именно ещё вчера - то решать это надо макросом. Который пробежится по вашей таблице и просто добавить строчки дополнительные.AndreTM
макросом. Который пробежится по вашей таблице и просто добавить строчки дополнительные.
ага, именно так [vba]
Код
Sub tt() Application.ScreenUpdating = 0 Application.Calculation = xlCalculationManual r0_ = 10 r1_ = Range("A" & Rows.Count).End(3).Row c1_ = Cells(r0_ - 1, Columns.Count).End(1).Column For i = r1_ To r0_ Step -1 With Range("A" & i) If Not .Offset(, 4) = "" Then .EntireRow.Insert .Offset(-1, c1_ - 1) = "ïëàí" .Offset(, c1_ - 1) = "ôàêò" For j = c1_ - 2 To 0 Step -1 .Offset(-1, j).Resize(2).Merge Next j .Resize(2).EntireRow.AutoFit End If End With Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = 0 End Sub
макросом. Который пробежится по вашей таблице и просто добавить строчки дополнительные.
ага, именно так [vba]
Код
Sub tt() Application.ScreenUpdating = 0 Application.Calculation = xlCalculationManual r0_ = 10 r1_ = Range("A" & Rows.Count).End(3).Row c1_ = Cells(r0_ - 1, Columns.Count).End(1).Column For i = r1_ To r0_ Step -1 With Range("A" & i) If Not .Offset(, 4) = "" Then .EntireRow.Insert .Offset(-1, c1_ - 1) = "ïëàí" .Offset(, c1_ - 1) = "ôàêò" For j = c1_ - 2 To 0 Step -1 .Offset(-1, j).Resize(2).Merge Next j .Resize(2).EntireRow.AutoFit End If End With Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = 0 End Sub