標題: [發問] 轉置困擾 [打印本頁]

---

作者: missbb    時間: 2015-8-9 22:56     標題: 轉置困擾

我在下列VBA內一直被A所困擾, 而且

a = Application.match(Sheets("201507").Range("A" & i), Sheets("data").Range("D:D"), 0) ->一直出現問題

Set rangeFilledWithTransposedData = Sheets("201507").Range("e3:e31") ->不知如何可以變成變數, 對應201507的ID.



Sub match()

Dim i As Integer
Dim a As Integer
Dim transposedVariant As Variant
Dim sourceRowRange As Range
Dim sourceRowRangeVariant As Variant
Dim finalrow As Integer


Sheets("201507").Activate
Sheets("201507").Range("e:e").Select
Selection.ClearContents

finalrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To finalrow

   a = Application.match(Sheets("201507").Range("A" & i), Sheets("data").Range("D:D"), 0)

    Set sourceRowRange = Sheets("data").Range("H" & a & ":AL" & a)
    sourceRowRangeVariant = sourceRowRange.Value
    transposedVariant = Application.Transpose(sourceRowRangeVariant)

    Dim rangeFilledWithTransposedData As Range
    Set rangeFilledWithTransposedData = Sheets("201507").Range("e3:e31")
    rangeFilledWithTransposedData.Value = transposedVariant
   
Next i

i = i + 1


End Sub
[/code]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)