Привет, поэтому я не слишком опытен в Excel VBA.Я пытаюсь найти значения в одной книге Excel в другой книге Excel, а затем скопировать соответствующие столбцы B, F и K и вставить их в столбцы B5, C5 и D5.
Это то, что я сделал до сих пор.
Sub findsomething()
Dim rng As Range
Dim account As String
Dim rownumber As Long
Dim dehyp As Long
dehyp = Replace(Range("A5").Value, "-", "")
account = Sheet.Cells(dehyp)
Set rng = sheet1.List-of-substances-in-the-third-phase-of-CMP-(2016-
2021).xlsx.Columns("A:A").Find(What:=account,
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
rownumber = rng.Row
Sheet1.Cells(2, 2).Value = Sheet1.List-of-substances-in-the-third-
phase-of-CMP-(2016-2021).xlsx.Cells(rownumber,
3).Value
End Sub
Я пытался до тех пор, пока не открою рабочую книгу, часть кода, и она работает, но я ничего не тестировал после этого, потому что я не знаю, как найти столбец.
Любая помощь приветствуется .............................................................................. Редактировать: я переформатировал его, чтобы включить оператор поиска иподумал, может быть, мне не нужно открывать вторую рабочую книгу.Я не уверен, что не так и получаю ошибки компиляции.