EXCEL A列数值相同的 让对应B列值也相同如图所示,A列很多值相同(相邻),B列有些有值,有些没有,要求处理后A列相同的,对应B列全部赋上相同值.PS.A列有9000+个单元格,在0到400循环,循环之间有重
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/28 15:04:06
EXCEL A列数值相同的 让对应B列值也相同如图所示,A列很多值相同(相邻),B列有些有值,有些没有,要求处理后A列相同的,对应B列全部赋上相同值.PS.A列有9000+个单元格,在0到400循环,循环之间有重
EXCEL A列数值相同的 让对应B列值也相同
如图所示,A列很多值相同(相邻),B列有些有值,有些没有,要求处理后A列相同的,对应B列全部赋上相同值.PS.A列有9000+个单元格,在0到400循环,循环之间有重复的情况!请避免A列循环间的数值相同的情况.
恩.尤其“小程序员0618” 邮件给我改了两次,基本上是接近完美答案了!在此再次表示感谢!而答案呢“wjp456789”给出的其实是正解,经过几次验证确实是最快捷方便的方法,前提是你是I7电脑!本人酷睿2-P8800的计算机算了10分钟,EXCEL还是假死状态!换了台I7,用了5分多钟算出了全部答案.= =|||险些错过了正解,再次拜谢了.
EXCEL A列数值相同的 让对应B列值也相同如图所示,A列很多值相同(相邻),B列有些有值,有些没有,要求处理后A列相同的,对应B列全部赋上相同值.PS.A列有9000+个单元格,在0到400循环,循环之间有重
Sub a()
Dim i&, j&
For i = 1 To [a65536].End(xlUp).Row
If Cells(i, 2) = "" Then
For j = 1 To [a65536].End(xlUp).Row
If Cells(i, 1) = Cells(j, 1) And Cells(j, 2) <> "" Then
Cells(i, 2) = Cells(j, 2)
End If
Next j
End If
Next i
End Sub