Excel VBA获取合并的单元格的值

我发现了类似的问题，但它并没有帮助我。 我有一个合并和非合并单元格的列。 我想要得到他们的价值。 我不知道如何使用它：

Set ma = myWorkbook.Range("C2").MergeArea sValue = ma.Cells(c.Row, 1).Value 

看看我的代码：

 Private Function GetValueOfMergedCells(sName, iColumn) Set myWorkbook = Workbooks().Worksheets() Set c = myWorkbook.Cells.Find(What:=sName, After:=ActiveCell, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext) If Not c Is Nothing Then If (iColumn <> 2) Then '... Else Set ma = NEWDevicesWS.Range("C2").MergeArea MsgBox ma.Cells(c.Row, 1).Value GetValueOfMergedCells = ma.Cells(c.Row, 1).Value End If Else '... End If End Function Sub main() Set firstWorkbook = Workbooks().Worksheets() ' Get array of strings Dim aNames() As String aNames = ImportSamplesNames() For i = 1 To UBound(aNames()) firstWorkbook.Cells(3 + i, 2) = GetValueOfMergedCells(aNames(i), 2) Next i End Sub 

我做错了什么？

Answer 1

不能追查你的代码

所以希望：

ma.Resize(1, 1).Value

会做