如何用VBA提取一个单元格内部分内容

如果ID值都是4位数的话，那么用以下代码就可以了：

Sub >

对单元格的引用换一个方式，不用[A1]的格式而用cells(行值,列值)，行值数字，列值可以是数字或字母（如A列，B列这样的字母）

k=sheets(1)cells(r,c) 'r & c 都是变量了

利用vba的自定义函数吧

在工作表界面作如下 *** 作：

按Alt+F11->打开vixual basic编辑器

在打开的vixual basic编辑器窗口作如下 *** 作：

标题栏->视图->工程资源管理器(单击打开)

插入-模块（这时会插入一个名称为“模块1”的模块)

右边出现一大片空白区域

将下述代码复制->粘贴进去:

Function Hasf(rng As Range)

If rngHasFormula Then

Hasf = rngFormula

Else

Hasf = ""

End If

End Function

'这样在工作表界面就可以直接用函数hasf了，跟excel内置函数一样使用

'如A2里有公式=IF(A1="","",A3+A4)

'那么B2里输入公式=hasf(A2) 确定即可

sub test()

for i=1 to sheet2cells(rowscount,3)end(3)row

if sheet2cells(i,3)value=Sheet1range("B4")value then

Sheet2cells(i,3)select

Exit for

end if

next

end sub

以上就是关于如何用VBA提取一个单元格内部分内容全部的内容，包括:如何用VBA提取一个单元格内部分内容、提取单元格内容的vba代码怎么写、VBA中获取单元格的内容，单元格地址是变量，该怎么办等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！