如何将2列数据按照一半一半来拆开，并将后面一半的数据剪切粘贴到另一单元格内

Wzs1412

沈默00 发表于 2024-3-19 11:13
好几万个工作薄？工作表？还是好几万行？
分两列只是个简单的操作....不明白你的目的是什么

根据上个大佬的回复，已经学会拆分了，感谢！

现在是因为A列有合并单元格，不知道能不能对A列合并单元格的列进行拆分，拆分后的合并单元格值到指定单元格内

liulang0808

Wzs1412 发表于 2024-3-19 11:27
根据上个大佬的回复，已经学会拆分了，感谢！

现在是因为A列有合并单元格，不知道能不能对A列合并单元 ...

还是建议楼主上传一下模拟附件，并模拟具体提取结果，

Wzs1412

liulang0808 发表于 2024-3-19 12:34
还是建议楼主上传一下模拟附件，并模拟具体提取结果，

大佬，图片中想把A-G列数据拆出一半，剪切到H-N列上，因为A列有合并单元格，不知道能不能实现

liulang0808

Sub test()
    x = Int((WorksheetFunction.CountA(Columns(1)) - 2) / 2)
    n = 0
    r = Cells(Rows.Count, 2).End(3).Row
    If x > 0 Then
        For j = Cells(Rows.Count, 2).End(3).Row To 3 Step -1
            If Len(Cells(j, 1)) > 0 Then
                n = n + 1
                If n = x Then
                    Range(Cells(j, 1), Cells(r, 7)).Copy Cells(3, 8)
                    Range(Cells(j, 1), Cells(r, 7)).Delete shift:=xlUp
                    Exit For
                End If
            End If
        Next j
    End If
End Sub

Wzs1412

水下帖子+3+3+3+3+3

liulang0808

供参考。。。。。。。