使用宏從一行中選擇位置並放置在下一張紙上的相同位置

我在Excel中有兩個電子表格。 Sheet1被稱爲Overview，Sheet2被稱爲Comments。例如，如果我在Sheet1的第2行中選擇了一個單元格並單擊該宏，則需要在Sheet2上將第2行放入第二個工作表的同一行。使用宏從一行中選擇位置並放置在下一張紙上的相同位置

到目前爲止我的代碼（我把一個MsgBox只是爲了看看是否聽明白了的單元格位置）：

Sub Comment() 

Sheets("Overview").Select 
myRow = ActiveCell.Row 
myCol = ActiveCell.Column 

MsgBox myRow & "," & myCol 
Sheets("Comments").Select 

(Stuck) 


End Sub

來源

2011-10-21 Matt

這跳轉到第二片相同的細胞。

Sub Comment() 
    Sheets("Overview").Select 
    myRow = ActiveCell.Row 
    myCol = ActiveCell.Column 
    Sheets("Comments").Select 
    Sheets("Comments").Cells(myRow,myCol).Select 
End Sub

來源

2011-10-21 20:16:14 Jonathan

謝謝你，這工作完美。 – Matt

這將做到這一點：

Sub jumpsheet() 

Dim addr As String 

addr = Selection.Address 
Sheets("Comments").Activate 
Range(addr).Select 

End Sub

來源

2011-10-21 20:23:50 Excellll

雖然這已經回答了（我給+1到Excellll）下面是對於任何負債狀況（片X去片X工程替代+1），並處理非範圍選擇，隱藏或不存在的工作表。我使用一個與工具欄上的按鈕相連的簡單插件非常相似，以及向後退一頁的代碼。

Sub UpOneSheet() 
On Error Resume Next 
Application.Goto Sheets(ActiveSheet.Index + 1).Range(ActiveCell.Address) 
If Err.Number <> 0 Then MsgBox "You either " & vbNewLine & "a) have a chart or object selected or," & vbNewLine & _ 
"b) are on the last sheet or, " & vbNewLine & "c) the sheet you are trying to access is hidden" 
End Sub

來源

2011-10-22 05:00:50 brettdj

使用宏從一行中選擇位置並放置在下一張紙上的相同位置

回答

相關問題