在Excel中连接的单元格

时间:2017-06-01 12:05:17

标签: excel excel-vba vba

Excel中是否有办法拨打电话"已连接"?

如:如果我移动一次单元格的值,另一个单元格如何随之移动? (请注意,他们没有接触,也不能接触。)

图中的

我展示了一个例子。 如果我移动tool1,编号84243.员工" rafa"随身携带。 这种情况发生在很多工具上,因此手工工作就像疯了一样。 (我不知道这是否是一个VBA问题,以防万一我添加tag.plz字体是疯了)enter image description here

enter image description here

1 个答案:

答案 0 :(得分:0)

这应该可以解决问题。把它放在一个模块中

Sub Test()
Dim mycell As Range
Dim mycell2 As Range

Worksheets("Sheet1").Activate 'change sheetname to what ever you got

Set mycell = Application.InputBox( _
prompt:="Select a cell", Type:=8)
Set mycell2 = Application.InputBox( _
prompt:="Select a cell", Type:=8)


Rows(mycell.Row).Cut
Rows(mycell2.Row).Insert Shift:=xlDown

End Sub