请问怎样用宏把指定的区域复制到指定的另外区域（是动态的）

naizhu2

请问怎样用宏把指定的数据区域（第5行到第8行）中的一行数据（不是完整行） 复制到 指定的区域，这个要求看起来简单，但是有些额外的难度
1.指定行不是固定的，是动态的，为了方便动态操作，简化一点，所以在A16单元格设置了指定行的取值，比如A16的值取6，代表
的是把第6行的数据复制到指定区域
2，同样指定的复制区域也不是固定的，我在C16单元格设置了要覆盖的行的取值，比如C16取1，代表的是上边第一步中的第6行的数据复制到第一行
3，同理，单元格A17和C17也是对指定的数据复制的要求，即把第7行的数据复制到指定的第3行
我想通过A16，A17，以及C16和C17这4个单元格来控制整个数据的复制，请问能写出这样的宏吗，谢谢、、

ww87725244

数据源的格式不一样，写出的代码就会不一样

chis3

Sub test()
    Dim rng As Range
    Dim arr
    Dim i As Byte
    arr = Range([a16], Cells(Rows.Count, 1).End(xlUp).End(xlToRight))
    For i = 1 To UBound(arr)
        Range(Cells(arr(i, 1), 2), Cells(arr(i, 1), 2).End(xlToRight)).Copy Cells(arr(i, 3), 1)
    Next i
End Sub

有什麼難度啊

naizhu2

感谢你的回复，在我给出的表中 ，你的公式是可以用的，但是一放到原始的大表中，宏公式出现错误。说实话对excel用公式我略微懂，但是用宏写，没有基础太难，我本来是想给一个简单例子，然后根据你的答案倒推演绎到改动后的表上，谁知比公式难多了，我把更详细的大表放出来，现在基本上数据行列是一样的了，我现在想把a1055单元格对应的行1055的数据从1055的c列开始复制到单元格c1069对应的行593去，而且是从行593的b列开始对应粘贴
现在行593的数据实际上是我手动粘贴上去的，请问怎么写宏，能用宏把类似的单元格a1070,c1070给的参数对应的行复制到行524去

naizhu2

chis3 发表于 2019-1-19 22:33
Sub test()
    Dim rng As Range
    Dim arr

感谢你的回复

naizhu2

chis3 发表于 2019-1-19 22:33
Sub test()
    Dim rng As Range
    Dim arr

能再帮忙看下上边的总表吗

chis3

naizhu2 发表于 2019-1-20 13:40
能再帮忙看下上边的总表吗

Sub test()
    Dim arr
    Dim i As Byte
    arr = [a1069:c1071]
    For i = 1 To 3
        If arr(i, 1) = "" Then Exit Sub
        Range(Range("b" & arr(i, 1)), Cells(arr(i, 1), Columns.Count).End(xlToLeft)).Copy Cells(arr(i, 3), "b")
    Next i
End Sub

naizhu2

chis3 发表于 2019-1-20 14:59
Sub test()
    Dim arr
    Dim i As Byte

基本实现了，但是数据是错位的，能不能只从c列的1019行的数据开始复制粘贴到524行，否则524行的标题和后边数据错位了

chis3

naizhu2 发表于 2019-1-20 15:13
基本实现了，但是数据是错位的，能不能只从c列的1019行的数据开始复制粘贴到524行，否则524行的标题和后 ...

Sub test()
    Dim arr
    Dim i As Byte
    arr = [a1069:c1071]
    For i = 1 To 3
        If arr(i, 1) = "" Then Exit Sub
        Range(Range("c" & arr(i, 1)), Cells(arr(i, 1), Columns.Count).End(xlToLeft)).Copy Cells(arr(i, 3), "b")
    Next i
End Sub

naizhu2

chis3 发表于 2019-1-20 15:27
Sub test()
    Dim arr
    Dim i As Byte

基本上是没有问题了，但是有一点尴尬的是，我原始的复制区域的数据是带有公式的，复制的数据能不能只复制数值到524行，不要带公式，带了公式后复制到指定区域后结果全变了，