我们以Excel格式接收来自世界各地不同公司的被保险人的保险期限。
我自动读取数据,但这些Excel文件包含合并的单元格。这些合并的方式不同。
始终相同的是,起始单元格右侧的下一个单元格包含所需的信息。
我总是需要确定起始单元格右边的数据,但考虑到它们是合并单元格,.offset可以做到吗?
示例:
A5:C5合并,D5未合并,E5:H5合并,I5:P5合并
--〉我需要D5、E5和I5(右侧单元格)的数据
对于下一个被保险人,相同数据的格式如下:
A5:B5合并,C5:F5合并,G5:J5合并,K5:O 5合并
--〉我需要C5、G5和K5(右侧单元格)的数据
它总是它右边的三个单元格,但就合并单元格而言是右边的。
我是这么试的:
从开始c是AN 87和新地址给我AM 87,即使AK 87:AM 87合并。
Dim c As Range
Dim firstAddress As String
With Workbooks(Left(myworksheet.Range("E10").Value, Len(myworksheet.Range("E10").Value) - 4) & ".xlsx").Worksheets("Sheet1").Range("A1:AY1000")
Set c = .Find(myworksheet.Range("E11").Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not c Is Nothing Then
ElzPeter = c.Address
MsgBox ElzPeter
End If
End With
Dim MA As Range, NewAddress As String
Set MA = c.MergeArea
NewAddress = MA.Offset(, -1).Resize(MA.Rows.Count).Address
MsgBox NewAddress
1条答案
按热度按时间hmmo2u0o1#
如果你有一个合并的单元格,
.Offset(0, 1)
将总是给予你合并区域右边的第一个单元格。所以如果单元格“A5:C5”被合并,Range("A5").Offset(0, 1)
将给你“D5”。假设您从“A5”开始,下面的代码应该可以帮助您:
更新
如果要从右到左:
Offset(0, -1)
将为您提供合并区域的 last 单元格。从那里,您可以使用MergeArea.Cells(1, 1)
获得合并单元格的值