excel中不同列比较相同的行值解决办法
excel中不同列比较相同的行值
名称 数值 名称 数值 以此表名称为准,放入前面表对应的数值
a 4 a 3 4
b 5 df 0 1
df 1 k 1 0
k 0
vba编程怎么去实现.excel-2003
请网友给予解答
------解决方案--------------------
啥意思?
------解决方案--------------------
求公式还是求宏呢?
------解决方案--------------------
用公式即可:
A列 B列
a 4
b 5
df 1
k 0
...
在C1输入df
在D1中输入公式:=LOOKUP(C1,A1:A4,B1:B4)
------解决方案--------------------
A列B列不要动,你换个地方输入不就行啦吗。
你自己看看LOOKUP的公式说明吧
------解决方案--------------------
不知楼主有没有VBA基础?
把以上代码粘贴到工作表Sheets("Sheet2")的代码区
建一个模块 粘贴上以下代码
运行方式:当工作表Sheet2的A列录入的值在工作表Sheet1(A列)找到,工作表Sheet2的C列就会撮提取到对应的值。OK
------解决方案--------------------
宏的优点是工作表上没有任何公式,但安全等级得设为中级,打开工作表时会提示是否起用宏,不了解VBA的朋友会把宏与病毒划等号,
都是那些混蛋坏了宏的名声。
------解决方案--------------------
Macro1模if 判断中 bb = [A:A].Find(cc, , , 1).Row 句是多余 的
------解决方案--------------------
公式想放在哪儿,你自己定,只要没冲突即可
------解决方案--------------------
回我的吗? 994686064 这是工作日上班时间一般都 在线,但不能多聊,只能联系一下,晚上一般不上,如果需要的话可预约
助人为乐
名称 数值 名称 数值 以此表名称为准,放入前面表对应的数值
a 4 a 3 4
b 5 df 0 1
df 1 k 1 0
k 0
vba编程怎么去实现.excel-2003
请网友给予解答
------解决方案--------------------
啥意思?
------解决方案--------------------
求公式还是求宏呢?
------解决方案--------------------
用公式即可:
A列 B列
a 4
b 5
df 1
k 0
...
在C1输入df
在D1中输入公式:=LOOKUP(C1,A1:A4,B1:B4)
------解决方案--------------------
A列B列不要动,你换个地方输入不就行啦吗。
你自己看看LOOKUP的公式说明吧
------解决方案--------------------
不知楼主有没有VBA基础?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If bb = 1 Then
If Cells(aa, bb) <> "" Then
cc = Cells(aa, 1)
Call Macro1
End If
End If
aa = Selection.Row '选区左上角行号
bb = Selection.Column '选区左上角列号
End Sub
把以上代码粘贴到工作表Sheets("Sheet2")的代码区
建一个模块 粘贴上以下代码
Public aa As Long, bb As Long, cc As String
Sub Macro1()
Sheets("Sheet1").Select '激活工作表Sheet1
If Not [A:A].Find(cc, , , 1) Is Nothing Then '在工作表Sheet2(A列)中找到了工作表Sheet2(A列)活动单元格改变之前单元格的值
bb = [A:A].Find(cc, , , 1).Row
Sheets("Sheet2").Range("C" & aa) = Range("B" & [A:A].Find(cc, , , 1).Row)
End If
Sheets("Sheet2").Select '激活工作表Sheet2
End Sub
运行方式:当工作表Sheet2的A列录入的值在工作表Sheet1(A列)找到,工作表Sheet2的C列就会撮提取到对应的值。OK
------解决方案--------------------
宏的优点是工作表上没有任何公式,但安全等级得设为中级,打开工作表时会提示是否起用宏,不了解VBA的朋友会把宏与病毒划等号,
------解决方案--------------------
Macro1模if 判断中 bb = [A:A].Find(cc, , , 1).Row 句是多余 的
------解决方案--------------------
公式想放在哪儿,你自己定,只要没冲突即可
------解决方案--------------------
回我的吗? 994686064 这是工作日上班时间一般都 在线,但不能多聊,只能联系一下,晚上一般不上,如果需要的话可预约