не знаю какой код написать. Мне нужно из листа1 в лист2 вывести полностью ячейку(А). остальные ячейки (назв. предпр) которые имеют знач. 1 тож вывести. пример на фото.
[vba]
Код
Dim b As Range Dim c As Range
Dim d_date As Range Dim d_name As Range
Public Sub ass()
Set a = ActiveWorkbook.Worksheets(1).Range("B1:J1") Set b = ActiveWorkbook.Worksheets(1).Range("A2:A360") Set c = ActiveWorkbook.Worksheets(1).Range("B2:J360")
Set d_date = ActiveWorkbook.Worksheets(2).Range("A1:A1000") Set d_name = ActiveWorkbook.Worksheets(2).Range("B1:B1000")
num_comp = 9 num_dates = 359
d_date.Clear d_name.Clear k = 0 For i = 1 To num_dates
For j = 1 To num_comp
[color=red]' Вставить код[/color]
Next j
Next i
End Sub
[/vba]
не знаю какой код написать. Мне нужно из листа1 в лист2 вывести полностью ячейку(А). остальные ячейки (назв. предпр) которые имеют знач. 1 тож вывести. пример на фото.
[vba]
Код
Dim b As Range Dim c As Range
Dim d_date As Range Dim d_name As Range
Public Sub ass()
Set a = ActiveWorkbook.Worksheets(1).Range("B1:J1") Set b = ActiveWorkbook.Worksheets(1).Range("A2:A360") Set c = ActiveWorkbook.Worksheets(1).Range("B2:J360")
Set d_date = ActiveWorkbook.Worksheets(2).Range("A1:A1000") Set d_name = ActiveWorkbook.Worksheets(2).Range("B1:B1000")
num_comp = 9 num_dates = 359
d_date.Clear d_name.Clear k = 0 For i = 1 To num_dates