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

【问题标题】：Link cells from different sheets if the cells next to it matches如果旁边的单元格匹配，则链接来自不同工作表的单元格
【发布时间】：2016-01-31 23:02:42
【问题描述】：

我想做下一个函数。

如果worksheet1中A中的第一个单元格等于worksheet2中A中的单元格（函数被调用的地方），那么worksheet2的B列中它旁边的空单元格，变为旁边单元格的数据它在工作表 1 的 B 列中。如果它们不相等，则对 worksheet1 中的下一行进行尝试，直到找到匹配项。

床单看起来有点像这样：

工作表1

A       B    

1 11:10   a

2 11:11   b

3 11:12   c

工作表2

  A      B        

1 11:11  function

2 11:14  function

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：