Question

在excel中，我想链接2个单独的单元格，在不同的工作表中具有完全相同的格式。如果第一个单元格被更改，我还需要第二个单元格自动更新。

这可能吗？

非常感谢。

Answer 1

以下VBA代码将完成此工作。

在这里您可以检查找到示例：

https://github.com/thanosa/excel-vba-collection/tree/master/link_formatted_cells

您必须指定：

工作表名称
目的地表名称（可以相同）
“源ID”列
来源信息列
目的地ID列
目的地信息列

它的作用是：

从“目标”表中读取目标ID
在源表中查找目标ID以查找行
根据上面找到的行和“源信息”列，从“源”表中复制单元格
将单元格原样粘贴到当前行和“目标信息”列的“目标”表中。

Const MAX_ROWS = 1000000

Private Sub CopyFormatted()
    ' Looks-up the destination id into the source look-up column to retrieve the row number
    ' Then it copies the source cell into the destination cell
    ' This is done to copy the format and the within cell new lines

    ' Layout dependent for the Destination
    dstWsName = "sheet1"
    dstFirstRow = 2
    dstIdCol = "A"
    dstWriteCol = "B"

    ' Layout dependent for the Source
    srcWsName = "sheet1"
    srcFirstRow = 2
    srcLookupCol = "D"
    srcReadCol = "E"

    Call performancePre

    Call lookUpCell(dstWsName, dstFirstRow, dstIdCol, dstWriteCol, _
                    srcWsName, srcFirstRow, srcLookupCol, srcReadCol)

    Call performancePost

End Sub


Private Sub lookUpCell(dstWsName, dstFirstRow, dstIdCol, dstWriteCol, _
                       srcWsName, srcFirstRow, srcLookupCol, srcReadCol)
    ' Reads a value in

    Dim srcWs As Worksheet
    Dim dstWs As Worksheet

    Set srcWs = ActiveWorkbook.Sheets(srcWsName)
    Set dstWs = ActiveWorkbook.Sheets(dstWsName)

    Dim sourceIdsVector As Range
    Set sourceIdsVector = srcWs.Range(srcLookupCol & srcFirstRow & ":" & srcLookupCol & MAX_ROWS)

    ' Initialization
    dstWriteRow = dstFirstRow
    Do
        srcRow = Empty
        searchId = dstWs.Range(dstIdCol & dstWriteRow).Value

        ' Make sure the id is not empty
        If searchId = vbNullString Then Exit Do

        ' Lookup the id to find the row number
        For Each cell In sourceIdsVector.Cells
            If cell.Value = "" Then Exit For

            If cell.Value = searchId Then
                srcRow = cell.Row
                Exit For
            End If
        Next cell

        ' If the search succeeds id does the copy paste of the cells.
        If srcRow <> Empty Then

            Dim srcCell As Range
            Set srcCell = srcWs.Range(srcReadCol & srcRow)

            Dim dstCell As Range
            Set dstCell = dstWs.Range(dstWriteCol & dstWriteRow)

            Call CopyPasteRange(srcWs, srcCell, dstWs, dstCell)

        End If

        ' Update
        dstWriteRow = dstWriteRow + 1
    Loop

End Sub


Private Sub CopyPasteRange(srcWs As Worksheet, srcRange As Range, dstWs As Worksheet, dstRange As Range)
    ' Copy a ranges and pastes it to another
    srcWs.Select
    srcRange.Select
    Selection.Copy

    dstWs.Select
    dstRange.Select
    ActiveSheet.Paste

    Application.CutCopyMode = False

End Sub


Private Sub performancePre()
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    ActiveSheet.DisplayPageBreaks = False 'note this is a sheet-level setting
End Sub


Private Sub performancePost()
    Application.ScreenUpdating = True
    Application.DisplayStatusBar = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    ActiveSheet.DisplayPageBreaks = True 'note this is a sheet-level setting
End Sub

Answer 2

尝试使用= sheetname！Cellref 例如，如果您需要您的单元格与价格中的单元格g4相同，您说=价格！G4

或者，如果这不起作用，打开两张纸，在正在进行复制的单元格中键入=，然后轻弹到另一本书并单击要复制的单元格=]

Excel，链接2单元格具有相同的格式

2 个答案: