指定单元格定位的问题

wxw19900926

想请问如何，用VBA代码来定位到图中公司A，公司B，公司C, 下面黄色的单元格，并且黄色单元格的值写成， 黄色单元格上方的公司A ,公司B 公司C 以此类推
后实现的是，三个”公司A” 单元格，空一格单元格，三个“公司B“”单元格，空一个单元格，3个”公司C” 空一个单元格。这种形式的。

望帝春心

上个具体文件吧，不然代码可能不适用你的具体情况。

wxw19900926

望帝春心 发表于 2019-7-18 17:10
上个具体文件吧，不然代码可能不适用你的具体情况。

文件

wxw19900926

Sub test()
    For i = 1 To 1000 Step 4
        v = Sheet1.Cells(i, 1).Value
        MsgBox v
      
     
        Sheet1.Range(Cells(i + 1, 1), Cells(i + 2, 1)).Value = v
      
        
    Next
   
End Sub