数据依次填充问题

kandhong88

老师：
   我想请教的是：数据依次填充问题。
   思路如下：
   把"数据区"中的数据依次填充到V列、W列、X列、Y列、Z列中。

   （本例中已有VBA，但只能从C列开始填充，我想实现的效果是:从V列开始向后填充。）
    依次填充数据.rar (19.01 KB, 下载次数: 20)

2024-4-23 15:13 上传

点击文件名下载附件

         

cidanji

  

蓝桥玄霜

数据的例子：

kandhong88

蓝桥玄霜 发表于 2024-4-23 15:39
数据的例子：

蓝桥玄霜老师:
      您的VBA写下来了，但不能运行。请指教。
      
   Sub 填充数据()

    Dim arr
    arr = Sheet1.Range("b2:b9")
    c = Sheet1.Cells(2, 22).Resize(1, UBound(arr)) = Application.Transpose(arr)
End Sub

kandhong88

蓝桥玄霜 发表于 2024-4-23 15:39
数据的例子：

蓝桥玄霜老师：
      您的VBA我抄写下来了，但不能运行，请指教！！

  Sub 填充数据()
    Dim arr
    arr = Sheet1.Range("b2:b9")
    c = Sheet1.Cells(2, 22).Resize(1, UBound(arr)) = Application.Transpose(arr)
End Sub

gwjkkkkk

Sub 填充数据()

    Dim Rng As Range, iCol&
   
    Set Rng = [B2:B9]
   
    With Range(Cells(2, "V"), Cells(9, "xfD"))
        ar = .Value
        For j = 1 To UBound(ar, 2)
            If ar(1, j) = "" Then iCol = j: Exit For
        Next j
        If iCol = 0 Then iCol = UBound(ar, 2)
        Rng.Copy .Cells(1, iCol)
    End With
   
End Sub

gwjkkkkk

请参考附件。。。

kandhong88

gwjkkkkk 发表于 2024-4-23 20:57
请参考附件。。。

gwjkkkkk老师：
     您的大作已收悉，完全正解。
     还有一个问题请教：我想把“数据区”中的数据依次填充到“结果区”V列、W列、X列、Y列、Z列中。
      依次填充数据.rar (23.72 KB, 下载次数: 6)

2024-4-23 21:51 上传

点击文件名下载附件

gwjkkkkk

kandhong88 发表于 2024-4-23 21:51
gwjkkkkk老师：
     您的大作已收悉，完全正解。
     还有一个问题请教：我想把“数据区”中的数据依 ...

Sub 填充数据()

    Dim Rng As Range, iCol&
   
    Set Rng = [B2:B9]
   
    With Range(Cells(2, "V"), Cells(9, "Z"))
        ar = .Value
        For j = 1 To UBound(ar, 2)
            If ar(1, j) = "" Then iCol = j: Exit For
        Next j
        If iCol = 0 Then iCol = UBound(ar, 2)
        Rng.Copy .Cells(1, iCol)
    End With
   
End Sub

蓝桥玄霜

kandhong88 发表于 2024-4-23 16:15
蓝桥玄霜老师：
      您的VBA我抄写下来了，但不能运行，请指教！！

我的代码里没有c=