Note: The other languages of the website are Google-translated. Back to English
English English

如何從Excel中的另一個單元格引用格式和值?

通常,我們使用公式= A1將單元格A1引用到工作表中的另一個單元格。 但這只能引用單元格值。 如果要引用單元格值及其格式,則需要嘗試另一種方法。 本文為您提供了兩種實現方法。

來自帶有粘貼鏈接圖片的其他單元格的參考格式和值
使用VBA自動引用其他單元格的格式和值


來自帶有粘貼鏈接圖片的其他單元格的參考格式和值

假設您要引用單元格A1中的格式和值,請執行以下操作以完成此操作。

1.選擇要引用的單元格(A1),然後按進行複制 按Ctrl + C 鍵。

2.轉到要鏈接參考單元的單元,右鍵單擊它,然後 選擇 > 選擇性粘貼 > 鏈接圖片。 看截圖:

現在,單元格A1的格式和值被引用到指定的單元格。 這兩個單元格的格式和值將是同步的,如下圖所示。


使用VBA自動引用其他單元格的格式和值

通過運行以下VBA腳本,您可以自動從另一個單元格引用格式和值。

1.右鍵單擊包含您需要引用的單元格的工作表選項卡,然後單擊 查看代碼 從右鍵單擊菜單中。

2.在彈出 Microsoft Visual應用程序 窗口,將下面的VBA代碼複製並粘貼到“代碼”窗口中。

VBA代碼:另一個單元格的引用格式和值

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (.Range("E2"))
        End If
    End With
End Sub

備註:在代碼中,Sheet1是工作表名稱,其中包含您需要同時引用值和格式的單元格。 A1和E2表示單元格A1將自動引用到單元格E2。

從現在開始,當Sheet1的單元格A1中的值更改時,其值和格式將立即引用到單元格E2。


相關文章:

最佳辦公效率工具

Kutools for Excel解決了您的大多數問題,並使您的生產率提高了80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過300種強大功能。 支持Office / Excel 2007-2019和365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能30天免費試用。 60天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 每天將您的工作效率提高50%,並減少數百次鼠標單擊!
officetab底部
按評論排序
留言 (9)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
你好! 很酷!! 有沒有辦法在 Google 電子表格中執行第一個選項?
網站主持人對此評論進行了最小化
嗨,朱利安,
抱歉,我們沒有在 Google 表格中進行測試。 謝謝你的評論。
網站主持人對此評論進行了最小化
如果我想複製到不同的工作表,我該怎麼做?
網站主持人對此評論進行了最小化
嗨,莉兒,
如果您需要復製到不同的工作表,請應用以下 VBA 代碼。 Sheet1 是原始工作表,Sheet3 是目標工作表。 請根據您的需要更改它們。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
使用工作表(“Sheet1”)
如果 .Range("A5").Value2 <> "" 那麼
在錯誤恢復下一頁
Range("A5").Copy (工作表("Sheet3").Range("E2"))
如果結束
結束
END SUB
網站主持人對此評論進行了最小化
如何在excel上運行這段代碼? 是否需要在兩個工作表上運行? 它可以像一步一步那樣具體嗎?
網站主持人對此評論進行了最小化
Hi Jesse,Hi,正如上面提到的代碼,您只需要在原始工作表的代碼窗口中填寫代碼,當更改原始工作表中的單元格值時(本例中為Sheet5中的A1),代碼將自動運行。 Sheet5中的單元格A1將被複製到Sheet2中的E3。
網站主持人對此評論進行了最小化
你好做了下面的代碼,但它沒有工作
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
使用工作表(“競爭分析摘要”)
如果 .Range("BI7").Value2 <> "" 那麼
在錯誤恢復下一頁
Range("BI7").Copy (工作表("In Depth View - ADP").Range("E55"))
如果結束
結束
END SUB
網站主持人對此評論進行了最小化
您好,添加代碼後,您需要修改工作表“競爭分析摘要”以啟用 VBA。
網站主持人對此評論進行了最小化
我可以鏡像每張新工作表上的前 5 列嗎? 我有數據只是希望格式隨所有工作表而變化,而不必重複這樣做
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點