求助各位大大，谁能帮我写段数据更新代码

hxl000 · 发表于 2014-12-29 21:53

求助各位大大，谁能帮我写段数据更新代码

笑着...两年过去 · 发表于 2014-12-29 22:09

B2输入数组下拉

复制代码

笑着...两年过去 · 发表于 2014-12-29 22:10

更新.rar (7.39 KB, 下载次数: 7)

hxl000 · 发表于 2014-12-29 23:02

笑着...两年过去发表于 2014-12-29 22:10

谢谢，我就是不想用公式，用VBA搞个按钮，直接在更新数据单元格中的内容

笑着...两年过去 · 发表于 2014-12-29 23:12

hxl000 发表于 2014-12-29 23:02
谢谢，我就是不想用公式，用VBA搞个按钮，直接在更新数据单元格中的内容

Sub test()
For i = 2 To 5
For j = 2 To 6
If Cells(i, 1) = Sheet2.Cells(j, 1) And Sheet2.Cells(j, 1) > Cells(i, 2) Then Cells(i, 2) = Sheet2.Cells(j, 2)
Next
Next
End Sub

复制代码

hxl000 · 发表于 2014-12-29 23:31

笑着...两年过去发表于 2014-12-29 23:12

太感谢了，懂得VBA真好

		自动登录	找回密码
密码			免费注册