思路： 1、在需要讀數的區域內迴圈 2、在迴圈體內首先判斷該單元格是否為合併單元格， 是，讀取合併區域的第一個單元格的值,即合併單元格的值，並作處理或儲存在某單元格，跳出迴圈; 否，直接讀取單元格的值，並作處理或儲存在某單元格; 下面是VBA語句，定義 r,c 是增強程式的通用性，請視具體情況修改： Sub a() Dim r As Integer "行號 Dim c As Integer "列號 r = 2 c = 1 If Cells(r, c).MergeCells Then "是否是合併單元格 Debug.Print Cells(r, c).MergeArea.Cells(1, 1) "是，打印合並區域的第一個單元格的值,即合併單元格的值 Else Debug.Print Cells(r, c) "否，列印單元格的值 End If "可把if語句塊放在迴圈中 End Sub ━━━━━━━━━━━━━━━━━━━━━━━━━
思路： 1、在需要讀數的區域內迴圈 2、在迴圈體內首先判斷該單元格是否為合併單元格， 是，讀取合併區域的第一個單元格的值,即合併單元格的值，並作處理或儲存在某單元格，跳出迴圈; 否，直接讀取單元格的值，並作處理或儲存在某單元格; 下面是VBA語句，定義 r,c 是增強程式的通用性，請視具體情況修改： Sub a() Dim r As Integer "行號 Dim c As Integer "列號 r = 2 c = 1 If Cells(r, c).MergeCells Then "是否是合併單元格 Debug.Print Cells(r, c).MergeArea.Cells(1, 1) "是，打印合並區域的第一個單元格的值,即合併單元格的值 Else Debug.Print Cells(r, c) "否，列印單元格的值 End If "可把if語句塊放在迴圈中 End Sub ━━━━━━━━━━━━━━━━━━━━━━━━━