试图在 sheet1 的最后一行的 b 列中查找单元格的值

Question

I need to find the value of the last cell in column b of sheet1. This value will change weekly. I then want to take that value and find it in sheet2. Then I want to copy and paste all data below this found value to sheet3. I can't get past the first part with the following code:

Dim cell As Range
Dim rangefound As Integer
Dim lastRow As Long

lastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
Set cell = Range("B:B").Find("rangefound")
rangefound = lastRow = Cells(lastRow, 2).Value

I've been struggling with the syntax for a month and really don't know what I'm doing.

Answer 1

try this

Sub test()

Dim cell As Range
Dim rangefound As Integer
Dim lastRow As Long

lastRow = Sheet1.Range("B" & Rows.Count).End(xlUp).Row

rangefound = Sheet1.Cells(lastRow, 2).Value

Set cell = Sheet2.Range("B:B").Find(rangefound)

MsgBox "The value was found in Sheet2!" & cell.Address

End Sub

The issues with your code were

• using rangefound before it had a value, ie the order of the commands
• using "rangefound" as a text instead of the variable
• wrong syntax to assign a value to rangefound
• not qualifying which sheet should be searched

Edit: To extend the code to copy the data below the found value to another sheet, use Offset to reference one row below. There are many different ways to do this, so using Offset is just one option.

Here is the complete code

Sub test()

Dim mycell As Range, RangeToCopy As Range
Dim rangefound As Integer
Dim lastRow As Long

lastRow = Sheet1.Range("B" & Rows.Count).End(xlUp).Row

rangefound = Sheet1.Cells(lastRow, 2).Value

' this is the cell with the found value
Set mycell = Sheet2.Range("B:B").Find(rangefound)

' now find the last row in Sheet2. We can use lastRow again,
' since it is no longer needed elsewhere

lastRow = Sheet2.Range("B" & Rows.Count).End(xlUp).Row

' set the range to copy to start one cell below rangefound
' to the end of the data in column B
Set RangeToCopy = Sheet2.Range(cell.Offset(1, 0), Sheet2.Cells(lastRow, "B"))
' copy the range and paste into Sheet3, starting at A1
RangeToCopy.Copy Sheet3.Range("A1")


End Sub

Note: I changed the variable name from "cell" to "mycell". It's better to use variable names that cannot be mistaken for Excel artifacts.

Another edit: If you need to paste into the next free row in Sheet3, use the techniques already established.

[...]
Set RangeToCopy = Sheet2.Range(cell.Offset(1, 0), Sheet2.Cells(lastRow, "B"))
    
    ' get the next available row in Sheet3
    lastRow = Sheet3.Range("A" & Rows.Count).End(xlUp).Row + 1
    ' copy and paste
    RangeToCopy.Copy Sheet3.Range("A" & lastRow)
[...]

Note that I'm using the same variable for three different purposes. If that is too confusing, create three distinct variables instead.