拼车信息请发到 /go/cosub 节点。 如果没有发送到 /go/cosub，那么会被移动到 /go/pointless。如果持续触发这样的移动，会导致账号被禁用。
这是一个创建于 2189 天前的主题，其中的信息可能已经有所发展或是发生改变。
- 把整列 www.abc.com ，转为超链接。
- 不用新建列加 hyperlink，也不用一个个格子回车了。
- 其实我记得好像有别的方法，但是想不起来了。
- 搜到个 vba，改造了一下，建议单独存一个 xlsm 方便调用。
- 真是写得我恶心死了，写和调试都很别扭，语法也不熟。
- 分享一下，希望大家少走弯路。
Sub add_link_to_column() ThisCell = Selection.Address(ColumnAbsolute:=False) ' MsgBox "Selected Cell:" & ThisCell Column = Split(ThisCell, "$", -1)(0) ' MsgBox "This Column:" & Column thisSheet = ActiveSheet.Name ' MsgBox "Sheet Name:" & thisSheet totalRow = Worksheets(thisSheet).Range("A65536").End(xlUp).Row ' MsgBox "Max Row:" & totalRow ' 从第二行开始 i = 2 Do While i <= totalRow ' 跳过空行 If Range(Column & i).Cells.Text <> "" Then Range(Column & i).Select Worksheets(thisSheet).Hyperlinks.Add Anchor:=Selection, Address:=Range(Column & i).Cells.Text, _ TextToDisplay:=Range(Column & i).Cells.Text End If i = i + 1 Loop End Sub 目前尚无回复
Select Language