Question

这可能是基本但我找不到怎么做。

我想在右边选择一个单元格和一个偏移单元格3单元格。介于两者之间。因此，如果我选择A2，它将复制A2和A5。

我设法做了一个或另一个，但无法弄清楚如何结合。我是初学者。

感谢目前为止的回复。意识到我说错了我的问题。我想要复制在A列中选择的任何一个单元格以及E列中同一行的相应单元格我到目前为止有这个但是我无法弄清楚如何让代码同时执行这两个操作

<sjg:grid
        altRows="false"
        id="gridtable"
        dataType="json"
        editurl="%{editurl}"
        filter="true"
        filterOptions="{stringResult:true}"
        gridModel="gridModel"
        height="600"
        href="%{remoteurl}"         
        loadonce="true"
        navigator="true"
        navigatorAdd="%{editPermission}"
        navigatorAddOptions="{reloadAfterSubmit:true,addCaption:'Add Record'}" 
        navigatorDelete="false"
        navigatorEdit="%{editPermission}"
        navigatorRefresh="true"
        navigatorSearch="false"
        onCompleteTopics="loadComplete"
        onSelectRowTopics="rowselect"
        pager="true"
        pagerButtons="true"
        rowList="25,50,100"
        rowNum="25"
        rownumbers="true"
    >

Answer 1

Sub Try()
Dim Selected_, Paste_ As Range
On Error Resume Next
'Allow user to select cell
Set Selected_ = Application.InputBox("Please select cell you would like to copy", Type:=8).Select
'Copy user's selected cell
Selection.Copy
'Offset, to select column E with the same row as user's selection
Set Paste_ = ActiveCell.Offset(0, 4).Select
'Paste value
ActiveCell.PasteSpecial
End Sub

这应该有帮助：）

VBA复制多个偏移单元

1 个答案: