Question

excel中怎么使用vba





Answer 1

程序代码：

运行效果：

追问

请问按照我图片上的我应该写什么代码呢

请问按照我图片上的我应该写什么代码呢

追答

你的代码我不大喜欢，好复杂，而且漏了一句，需要在FOR下面增加下面的语句才正确：
S = MID(CELLS(I,1), 5 , 2)

追问

好的，谢谢，这个时计算机二级上的题目，没办法。

好的，谢谢，这个时计算机二级上的题目，没办法。

追答

坚持自己的思想，做有意义的事情，祝你好运。

Answer 2

当vlookup找不到匹配的结果，就会返回错误值#N/A，这个错误值使vba报错。

为了避免找不到而报错，可以使用以下错误捕获

Sub test()
On Error Resume Next
Cells(5, 1) = Application.WorksheetFunction.VLookup(Cells(5, 2), Sheets("HR").Range("A:C"), 3, 0)
End Sub

当然，你使用find方法也可以，方法不唯一，就看你习惯用哪个。

追问

图片中的代码怎么写呢