Sub ertert33() Dim x, i&, rw& With Sheets("data") With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row) x = .Value For i = 1 To UBound(x) rw = x(i, 1) 'номер строки, который записан в ст. С x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])" x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"
нужно сюда дописать след формулу: = ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)
Next i With .Offset(, 3) .Value = x .Value = .Value 'и можно ли сразу вставлять как значение? Можно ) End With End With End With End Sub
см.приложенный файл
есть такой макрос:
Sub ertert33() Dim x, i&, rw& With Sheets("data") With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row) x = .Value For i = 1 To UBound(x) rw = x(i, 1) 'номер строки, который записан в ст. С x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])" x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"
нужно сюда дописать след формулу: = ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)
Next i With .Offset(, 3) .Value = x .Value = .Value 'и можно ли сразу вставлять как значение? Можно ) End With End With End With End Sub
Sub ertert33() Dim x, i&, rw& With Sheets("data") With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row) x = .Value For i = 1 To UBound(x) rw = x(i, 1) 'номер строки, который записан в ст. С x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])" x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"
нужно сюда дописать след формулу: = [vba][code]ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)
[/vba]
Next i With .Offset(, 3) .Value = x .Value = .Value 'и можно ли сразу вставлять как значение? Можно ) End With End With End With End Sub[/code][/vba]
см.приложенный файл
есть такой макрос:
[vba]
Код
Sub ertert33() Dim x, i&, rw& With Sheets("data") With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row) x = .Value For i = 1 To UBound(x) rw = x(i, 1) 'номер строки, который записан в ст. С x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])" x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"
нужно сюда дописать след формулу: = [vba][code]ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)
[/vba]
Next i With .Offset(, 3) .Value = x .Value = .Value 'и можно ли сразу вставлять как значение? Можно ) End With End With End With End Sub[/code][/vba]
Sub ertert33() Dim x, i&, rw& With Sheets("data") With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row) x = .Value For i = 1 To UBound(x) rw = x(i, 1) 'номер строки, который записан в ст. С x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])" x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"
нужно сюда дописать след формулу: = ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)
Next i With .Offset(, 3) .Value = x .Value = .Value 'и можно ли сразу вставлять как значение? Можно ) End With End With End With End Sub
[/vba] см.приложенный файл
есть такой макрос:
[vba]
Код
Sub ertert33() Dim x, i&, rw& With Sheets("data") With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row) x = .Value For i = 1 To UBound(x) rw = x(i, 1) 'номер строки, который записан в ст. С x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])" x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"
нужно сюда дописать след формулу: = ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)
Next i With .Offset(, 3) .Value = x .Value = .Value 'и можно ли сразу вставлять как значение? Можно ) End With End With End With End Sub