Сравнение строк и перенос значений, как осуществить? - VBA

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток , прошу разобраться в вопросе по циклам и сравнивании срок с переносом значений... В одной папке находятся 2 книги: -arc.xlsx - лист "Спецификация помещений" это исходная таблица для сравнения по столбцу ("Комментарии" с числовыми индексами) -mec.xlsx - лист "Спецификация стен"- это таблица в которую требуется скопировать столбец "Площадь" (желтым выделено то что требуется от макроса) из файла arc.xlsx в зависимости от индекса столбца "Комментарии" в файле mec пробовал так - не получается (кусок кода):

Решение задачи: «Сравнение строк и перенос значений, как осуществить?»

textual
Листинг программы
Sub UNION_RVT_shedules()
    Dim i&, ii&
    Dim MyPath$
    Dim A(), B()
'----------------
    MyPath = ThisWorkbook.Path
    Application.ScreenUpdating = False
    
    With Workbooks.Open(Filename:=MyPath & "\arc_.xlsx", UpdateLinks:=0, ReadOnly:=True)
        A = .Worksheets("Спецификация помещений").UsedRange.Value
        .Close False
    End With
    
    With Workbooks.Open(Filename:=MyPath & "\mec_.xlsx", UpdateLinks:=0, ReadOnly:=False)
        With .Worksheets("Спецификация стен")
            B = .UsedRange.Value
            For ii = 3 To UBound(B)
                For i = 3 To UBound(A)
                    If B(ii, 2) = A(i, 2) Then
                        .Cells(ii, 8) = A(i, 8)
                    End If
               Next
            Next
        End With
    End With
    
    Application.ScreenUpdating = True
    
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.429 из 5
Похожие ответы