我有一个宏,这样当您突出显示sheet1上的一行时,该宏就会获取该行中的所有信息,并将其单独显示在sheet2上。如果突出显示sheet1上的不同行,sheet2上的信息将更改以显示该行的信息。
我的问题是,如果我更改sheet2上显示的信息,它不会更改sheet1上的信息。有什么办法可以添加这个功能吗?
我现在有以下代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myList
If Target.Address <> Target.EntireRow.Address Then Exit Sub
If Target.Rows.Count > 1 Then Exit Sub
myList = [{"B1","B2","B3","B4","B5","B6","B7","B8","B9","B10","B11","B12","B13","B14","B15"}] '<- adjust to your need
With Target.EntireRow
For i = 1 To UBound(myList)
Sheets("sheet2").Range(myList(i)).Value = .Cells(i).Value
Next
End With
End Sub
任何帮助都是极好的! :)
将sheet1行复制到sheet2后,您还可以记录值来自的原始行#。然后,您可以添加一个额外的宏,将sheet2 值与sheet1 中的值进行比较——然后可以迁移任何更改。
一个可能的基本流程:
- 将sheet1行复制到sheet2(当前宏)
- 将sheet1行#复制到sheet2(即向下一行)
- 在sheet2上进行更改
- 将sheet2行复制到sheet1行(使用sheet2上保存的行号)->这假设不会对sheet1进行任何更改。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)