Question

我想制作下一个功能。

如果工作表1中A中的第一个单元格等于工作表2中的A中的单元格（调用该函数的位置），则工作表2的B列旁边的空单元格将更改为单元格旁边的单元格数据它在工作表1的B列中。如果它们不相等，则尝试将其用于工作表1中的下一行，直到找到匹配项。

表格看起来有点像这样：

Worksheet1

A       B    

1 11:10   a

2 11:11   b

3 11:12   c

Worksheet2

  A      B        

1 11:11  function

2 11:14  function

Answer 1

Sub match()
Dim w1 As Worksheet, w2 As Worksheet
Dim FRow1 As Long, FRow2 As Long, m as Long, i As Long, j As Long
Dim str1A As String, str12A As String

Set w1 = Sheet1
Set w2 = Sheet2

m=w1.Rows.Count

Frow1 = w1.Range("A"& m).End(xlUp).Row
Frow2 = w2.Range("A"& m).End(xlUp).Row

For i=1 to FRow1
  str1A = Trim(w1.Range("A" & i).Text)
  str2A = Trim(w2.Range("A" & i).Text)

 if str1A = str2A then
     w2.Range("B" & i) =""
 Else: End if

Next i

End Sub

如果其旁边的单元格匹配，则链接来自不同工作表的单元格

1 个答案: