我想在Excel某单元格中加上超级链接,并且链接地址中需加入此单元格的值,如A1单元格值为“林峰”,那么链接的地址为“ http://baike.baidu.com/searchword/?word=A1单元格值&pic=1”(即 http://baike.baidu.com/searchword/?word=林峰&pic=1 ),怎么样才能实现。我知道可以一个一个的手工加上去,可是太麻烦了谁知道简单的方法。
可以用VBA实现
在该文件夹下新建一个excel文件,打开该文件后按住ALT,依次按F11,I,M
粘贴下面的代码后按F5,即可在该文件中获得该目录下所有*.xls文件的sheet2的A1,B2,C3的内容。
具体单元格坐标根据需要修改。
Sub test()
Application.ScreenUpdating = False
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xls")
m = ThisWorkbook.Name
R = 1
Do
If f <> m Then
Workbooks.Open (p & f)
R = R + 1
With Workbooks(m).Sheets(1)
.Cells(R, 1) = Sheets("sheet2").[A1]'将A1值放在新表的第1列
.Cells(R, 2) = Sheets("sheet2").[B2]'将B2值放在新表的第2列
.Cells(R, 3) = Sheets("sheet2").[C3]
'依次添加其他要读取的单元格
End With
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End If
f = Dir
Loop Until f = ""
Application.ScreenUpdating = True
End Sub
对补充问题的回复:
将代码中所有"sheet2"改为"评估数据"
以上是提取同一文件夹不同excel文件同一工作表中同一单元格的数值,比如能不能将Cells(R, 1) = Sheets("sheet2").[A1]'将A1值放在新表的第1列
提取的A1数值放到第一列后,第一列带超链接,点击第一列时可以连接到原始数据那个xls文件。
引用单元格位置可以利用=INDIRECT("A1")公式,这里假设要引用A1的值
=INDIRECT("A1")-加引号,文本引用A1的值 ,如下例上
=INDIRECT(A1)—不加引号,地址引用,引用的是对应值