Question

EXCEL VBA提取内容

1。提取A列内容到我要的结果
2。.每提取一次,位置往下

Answer 1

Sub xx()
Do
For i = 11 To 47 Step 12
    For j = 2 To 7
        If Cells(j, i) <> "" Then Cells(j, i).Resize(1, 10).ClearContents: Exit Do
    Next
Next
Loop Until True
If j >= 7 Then
    j = 2
    If i >= 47 Then
        i = 11
    Else
        i = i + 12
    End If
Else
    j = j + 1
End If
arr = [a14:a23]
Cells(j, i).Resize(1, 10) = Application.Transpose(arr)
End Sub

追问

A列最后10单元
每提取一次完成后,再提取结果到下一位置

追答

Sub xx()
Do
For i = 11 To 47 Step 12
    For j = 2 To 7
        If Cells(j, i) <> "" Then Cells(j, i).Resize(1, 10).ClearContents: Exit Do
    Next
Next
Loop Until True
If j >= 7 Then
    j = 2
    If i >= 47 Then
        i = 11
    Else
        i = i + 12
    End If
Else
    j = j + 1
End If
arr = Cells(4 ^ 8, 1).End(3).Offset(-9).Resize(10)
Cells(j, i).Resize(1, 10) = Application.Transpose(arr)
End Sub

追问

每点一次提取一行

追答

Sub xx()
Do
For i = 11 To 47 Step 12
    For j = 2 To 7
        If Cells(j, i) = "" Then Exit Do
    Next
Next
Loop Until True
If i > 47 Then
    j = 2
    i = 11
End If
arr = Cells(4 ^ 8, 1).End(3).Offset(-9).Resize(10)
Cells(j, i).Resize(1, 10) = Application.Transpose(arr)
End Sub