excelvba引用
『壹』 excel vba中如何实现单元格的绝对引用
一般都是绝对引用，因为在语句中已经明确指定了地址
使用相对引用，则使用.offset
或者 .formulaR1C1 样式
『贰』 EXCEL VBA如何将路径作为变量引用（路径是自己设定）
写在函数外面的dim 都是全局变量
一般都写在 最最最上面的
比如
dim 全局变量1 as string '本模块使用
public dim 全局变量2 as string '所有模块通用
sub test()
全局变量1 ="你好"
全局变量2="我很好"
end sub
『叁』 Excel中vba如何定义绝对引用
大约你是想要这样？
PublicFunctionCtoN(StringsAsString)AsInteger
DimSlAsLong,S1AsString,S2AsString
Strings=UCase(Strings)
Sl=Len(Strings)
IfSl=0Then
CtoN=0
ElseIfSl=1Then
CtoN=Asc(Strings)-64
ElseIfSl>1Then
S1=Mid(Strings,1,1)
S2=Mid(Strings,2,1)
CtoN=(Asc(S1)-64)*26+Asc(S2)-64
EndIf
EndFunction
PublicFunctionCtoN2(StringsAsString)AsInteger
DimSlAsLong,S1AsString,S2AsString,RngAsString
Rng=UCase(Range(Strings))
Sl=Len(Rng)
IfSl=0Then
CtoN2=0
ElseIfSl=1Then
CtoN2=Asc(Rng)-64
ElseIfSl>1Then
S1=Mid(Rng,1,1)
S2=Mid(Rng,2,1)
CtoN2=(Asc(S1)-64)*26+Asc(S2)-64
EndIf
EndFunction
两个样式的对比，自已比比看吧，注，第二个需引用字符串样式，如（“A1”）,缺点的不会实时运算，其实直接用绝对引用也挻好的……
『肆』 excel VBA中怎样引用外部单元格
Sub test1()
Dim fPath, fName, fl As String
Dim ws As Worksheet
Set ws = Application.ThisWorkbook.Worksheets("sheet1")
fPath = Application.ThisWorkbook.Path & "\"
fName = "Test2.xlsm"
Workbooks.Open fPath & fName
ws.[A1] = Sheet1.[R51]
Workbooks(fName).Close savechanges:=False
End Sub
fPath和fName都换成你的目标文件所在的目录和名称就可以了
『伍』 excel vba引用数据到另表
Subs()
Dimarr(1To4)
WithApplication.Workbooks("qq.xlsx").Sheets("aw")
arr(1)=.[b9]
arr(2)=.[b33]
arr(3)=.[b57]
arr(4)=.[b81]
EndWith
WithWorkbooks("we.xlsx").Sheets("aa")
Fori=1To4
.Cells(.Rows.Count,i+1).End(3).Offset(1)=arr(i)
Next
EndWith
EndSub
『陆』 excel中vba引用问题
举例：Excel2007
打开vba编辑器
依次单击Office按钮，然后选择“Excel选项”：
『柒』 excel vba引用
VBA代码，公式应该也可以的
Dim i, j, k As Integer
k = Range("c68").End(xlDown).Row
j = 3
For i = 69 To Range("c68").End(xlDown).Row
If j = 0 Then
Range("k" & k) = Range("c" & (Range("c68").End(xlDown).Row - i + 69))
k = k - 1
j = 3
Else
j = j - 1
End If
Next
『捌』 Excel VBA 中如何使用结构化引用
需要这样的，那么就要用Find查找其所在的行。
代码如下：
Dim CutNb, InsNb
CutNb = Rows(1).Find("单位").Column
InsNb = Rows(1).Find("商品名称").Column
Columns(CutNb).Cut
Columns(InsNb).Insert Shift:=xlToRight
1、第一句dim是定义变量；
2、查找单位在第一行里面的位置并赋值给变量CutNb；
3、和第二句意思一样的；
第四、五就是用Columns来进行剪切插入。