存有合并单元格情况下的offset偏移

大公臻信

各位老师：

我想利用offset函数确定目标单元格位置。前提是利用offset函数确定目标单元格位置涉及到合并单元格。我的代码如下：

Sub 存有合并单元格情况下的单元格偏移()
'子项目
zxxmmcarr = Array("子项目1", "子项目2", "子项目3", "子项目4")
'单位
zzcddwarr = Array("单位1", "单位2", "单位3", "单位4")
zzcddwgs = UBound(zzcddwarr)
'填入子项目名称、单位名称
For xhxh = 0 To zzcddwgs
    Range("i2").Offset(0, (xhxh)) = zxxmmcarr(xhxh)
    Range("i3").Offset(0, (xhxh)) = zzcddwarr(xhxh)
Next
''填入子项目名称、单位名称
'For xhxh = 0 To zzcddwgs
'    Debug.Print Range("i2").Offset(0, 0).Offset(0, xhxh).Address
'    Range("i2").Offset(0, 0).Offset(0, xhxh) = zxxmmcarr(xhxh)
'    Range("i3").Offset(0, 0).Offset(0, xhxh) = zzcddwarr(xhxh)
'Next
End Sub

基点单元格是Range("i2")，i2到k2为合并单元格，L2到N2为合并单元格，O2到Q2为合并单元格，R2到T2为合并单元格。
L2能通过offset函数确定位置，而Q2、R2未成功的利用offset函数确定正确的位置。
请老师帮看一下，指点一下
存有合并单元格情况下的offset偏移.zip (13.29 KB, 下载次数: 4)

2024-8-11 16:52 上传

点击文件名下载附件

ykcbf1100

不要执迷于offset函数，这个函数并不适合这里。

ykcbf1100

参与一下。。。

1. Sub 存有合并单元格情况下的单元格偏移()
   
2.     arr = Array("子项目1", "子项目2", "子项目3", "子项目4")    '子项目
   
3.     brr = Array("单位1", "单位2", "单位3", "单位4")     '单位
   
4.     For j = 9 To 20 Step 3     '填入子项目名称、单位名称
   
5.         n = n + 1
   
6.         Cells(2, j) = arr(n - 1)
   
7.         Cells(3, j) = brr(n - 1)
   
8.     Next
   
9. End Sub
   

复制代码

大公臻信

谢谢ykcbf1100老师，提供解决问题的新思路帮我解决了问题。