excel vba中变量单元格地址在range怎么用？

Posted 2023-05-13

因为是同名称，想把一列中最后一个单元格与A01合并，这个公式后面加注Address也不对
运行报错1004 应用程序定义或对象定义错误，该怎么改？
Dim a
a = Range("A1048576").End(xlUp).Offset(0, 0)
Range("A01:a ").Select
Selection.Merge

参考技术A Dim irow&
irow = Range("A" & Rows.count).End(3).Row
Range("A1:A" & irow).Merge追问

谢谢啊，另外在问个问题 ，表1里A2单元格有个值（编号），表2的B列是所有的编号，要想查询表2里B列与当前表1的A2单元格相同的数值的行号变量，该怎么写代码？

追答

Sub 查找行号()

    Dim rg As Range, irow&

    Set rg = Sheet2.Range("B:B").Find(Range("A2"), , , xlWhole)

    If rg Is Nothing Then

        MsgBox "无此编号！", 16

        Exit Sub '退出sub

    Else

        irow = rg.Row

    End If

    MsgBox "你要查找的编号在Sheet2的第" & irow & "行！", 64

End Sub

追问

再次感谢，能不能再麻烦看下，想做个编码形式为当年年份+MB+XX（数字）。现在[f2] = "o " & " .MB.00" & i + 1显示是o.MB.002,这个o怎么才能显示成2022。代码超长发不
o = Year(Date) i = Mid(Range("F2"), 9, 8)
Case 1 To 8
[f2] = "o " & " .MB.00" & i + 1

追答

[f2] = o & ".MB.00" & i + 1

这个o不要打双引号就行了。
打了双引号的表示文本字符串。不打双引号才是变量o

本回答被提问者采纳

在EXCEL中，如何使用VBA设置单元格内指定字符串格式

参考技术A Sub
ss()
Dim
j
As
Long
j
=
InStr(Range("A1"),
"格式")
With
Range("A1")
.Font.FontStyle
=
"正常"
.
Characters
(Start:=j,
Length:=2).Font.FontStyle
=
"加粗"
End
With
End
Sub
这个代码可以让你的格式两个字在任意位置
如果你A1是固定的这几个字，那么一句话搞定
Range("A1")
.Characters(Start:=4,
Length:=2).Font.FontStyle
=
"加粗" 参考技术B 查找所有应用区域中包含“hello”字符串的
sub
test1()
dim
v
as
string
dim
r
as
range
v
=
"hello"
for
each
r
in
activesheet.usedrange
if
instr(1,
r,
v)
<>
0
then
msgbox
r.address
end
if
next
end
sub