求助各位帮忙编个VBA

sxxzxy

本人VBA小白，希望各位大神帮忙作个VBA

如附件中，在sheet1、sheet2、……sheetN的数据表内，在固定位置有需要提取的数据，要求提取到sheet0的对应位置上，请老师们帮忙一下编个VBA，感激不尽，谢谢！

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, j, arr, sht, pos, last, m, n
  pos = Split("c7 f15 k12")
  ReDim brr(1 To Rows.Count, 1 To UBound(pos) + 1) As String
  For Each sht In Sheets
    If sht.Name <> "0" Then
      n = 0
      For i = 0 To UBound(pos)
        arr = Sheets(sht.Name).Range(pos(i)).Resize(4)
        n = n + 1: m = last
        For j = 1 To UBound(arr, 1)
          m = m + 1: brr(m, n) = arr(j, 1)
      Next j, i
      last = m
    End If
  Next
  With Sheets("0").[c9]
    .Resize(Rows.Count - 8, UBound(brr, 2)).ClearContents
    If m > 0 Then .Resize(m, UBound(brr, 2)) = brr
  End With
End Sub

yck689900

Option Explicit

Sub test()
    Dim Sht, I, Arr, N
    ReDim Arr(1 To 10000, 1 To 3)
    For Each Sht In Worksheets
        If Sht.Name <> "0" Then
            For I = 1 To 4
                N = N + 1
                Arr(N, 1) = Sht.Range("c" & I + 6)
                Arr(N, 2) = Sht.Range("f" & I + 14)
                Arr(N, 3) = Sht.Range("k" & I + 11)
            Next
        End If
    Next
    Range("a1").Resize(10000, 3) = Arr
End Sub
   

sxxzxy

一把小刀闯天下 发表于 2018-9-12 15:48
Option Explicit

Sub test()

谢谢“一把小刀闯天下”的热心帮助，试运行OK，
如果我想以此程序为基础灵活运用，还请兄弟指教一下，
我现在理解到的
pos = Split("c7 f15 k12") 是源DATA位置

arr = Sheets(sht.Name).Range(pos(i)).Resize(4)
其中的Resize(4)就是提取几个数据

但是没看懂以下两句
    .Resize(Rows.Count - 8, UBound(brr, 2)).ClearContents
    If m > 0 Then .Resize(m, UBound(brr, 2)) = brr

Rows.Count - 8   后面的8是什么意思？
UBound(brr, 2)   brr，后面的2是什么意思？

有劳兄弟再说明一下，谢谢！

sxxzxy

Rows.Count - 8   后面的8是什么意思？
UBound(brr, 2)   brr，后面的2是什么意思？

哪位能 说明一下，谢谢！