軟體:Excel
版本:2013
各位前輩好
小弟目前整理資料已經用VBA超連結將分頁匯入活頁簿了
現在想再多做一個動作 新增一欄在資料最前面並填上資料名稱
如下圖所示
https://imgur.com/a/Z0f6ADv
Sub 測試()
'
' 測試 巨集
'
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ActiveCell.Value, TextToDisplay:=ActiveCell.Value
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("物料主檔").Select
Sheets("物料主檔").Copy Before:=Workbooks("物料主檔.xlsm").Sheets(1)
'
End Sub
Sub 機種()
'
' 機種 巨集
'
'
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6").Select
ActiveCell.FormulaR1C1 = "機種"
Range("A7").SelectD
ActiveCell.FormulaR1C1 = "=Source!R[-6]C"
Range("A7").Select
Selection.Cut
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Replace What:="Camerlation_Rule_", Replacement:="",
LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:="Camerlation_Rule_", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A7:A240")
Range("A7:A240").Select
End Sub
請問要怎麼做才能讓他自動抓Source分頁中的名稱?
並且在做下一筆時可以自動抓下一筆?
目前想應該是上面標紅色部分要做修改 但不知道怎麼改...
請各位前輩指點 謝謝