Question

我是EXCEL和VB脚本的初学者。我在excel中有2张纸，并且想要在纸张1的B列中查找字符串，如果匹配，则应该获取同一行但是列A的值，并将其显示在工作表2的单元格D3中作为“名称是_____“，在空白处应显示获取的值。请帮助代码。感谢。

尝试使用以下代码。坚持在val2线，因为它抛出错误。我知道代码会有很多错误，请让我知道我刚开始时的错误。谢谢你的帮助：

Sub to_approve()

Dim val1 As String    
Dim val2 As String    
Dim val3 As String    
Dim k As Integer

For k = 2 To 955    
    Sheets("Sheet1").Activate    
    val1 = "It is good"    
    val2 = Application.WorksheetFunction.Range("B:B").Find(val1, , xlValues, xlWhole)    

    If val1 = val2 Then
        val3 = ActiveSheet.Range("A" & k).Value                  
    End If    
Next k

End Sub

Answer 1

在我看来，您可以使用单元格class Bubble { constructor(x = 200, y = 200, r = 40) { this.x = x; this.y = y; this.r = r; } ... }上的常规公式实现相同的功能。我将您的价值放在D3上，但如果您愿意，可以将其直接放在E1的公式中。

"It is good"

工作原理： =INDEX(Sheet1!$A$1:$B$955,MATCH($E$1,Sheet1!$A$1:$A$955,0),2)

=INDEX根据内容列表中的地址返回一个值

INDEX

工作原理： =INDEX(The Area of the Table , ROW , Column)

=MATCH找到范围内的值：

MATCH

寻找用于匹配字符串和使用VB在另一张相同excel中获取数据的代码

1 个答案: