Подробное описание в примере
Удаление строк макросом.
10.05.2012 15:36:11
|
|
|
|
10.05.2012 21:19:04
Sub xxx()
Dim c As Range, i& If ActiveCell.Column <> 4 Then Exit Sub If ActiveCell.Value <> 1 Then Exit Sub i = ActiveCell.Row + 1 With ActiveSheet Do Until .Cells(i, 4) = "Масса наплавленного металла (1%), кг": i = i + 1: Loop .Cells(i, 4).EntireRow.Delete .Range(ActiveCell.Offset(1, 0), .Cells(i - 2, 4)).EntireRow.Delete ActiveCell.Offset(0, 9).Formula = ActiveCell.Offset(-1, 10).MergeArea.Cells(1, 1).Formula ActiveCell.Resize(1, 9).ClearContents ActiveCell.Offset(0, 11).Resize(1, 4).ClearContents ActiveCell.Offset(0, 1).Value = "обратно " & ActiveCell.Offset(-1, -1).MergeArea.Cells(1, 1).Value ActiveCell.Offset(0, 1).Resize(1, 2).Merge ActiveCell.Offset(0, 1).Resize(1, 2).HorizontalAlignment = xlCenter End With End Sub
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг |
|
|
|
10.05.2012 21:22:21
файл
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг |
|
|
|
10.05.2012 21:30:25
Большое человеческое спасибо!!! То что нужно.
|
||||
|
|
|||