VBA移調的動態範圍在Excel

基本上我有一個動態範圍，將永遠是在列A：C在片1我試圖寫個人宏拷貝的動態範圍和調換這到第2頁到允許郵件合併能夠讀取第1行作爲郵件合併字段。VBA移調的動態範圍在Excel

目前出現在此行中的錯誤：

Set sourceRange = ActiveSheet.Range(Cells(1, 1), Cells(lastRow, 1))

整個代碼如下所示。有可能是我錯過了一個簡單的錯誤，或者甚至是一個更簡單的方法來實現我想要的結果，但是這是我目前所提出的。

Sub TrasposeData() 
' 
' TrasposeData Macro 
' Takes the data from sheet one and transpose it to sheet 2 to allow for mail merge compatibility. 

Sheet1.Activate 

Dim sourceRange As Range 
Dim targetRange As Range 
Dim lastRow As Long 

lastRow = WorksheetFunction.CountA(Range("A:A")) 
Set sourceRange = ActiveSheet.Range(Cells(1, 1), Cells(lastRow, 1)) 

Sheet2.Activate 

Set targetRange = ActiveSheet.Cells(1, 1) 

Sheet1.Activate 

sourceRange.Copy 

Sheet2.Activate 

targetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 

' Keyboard Shortcut: Ctrl+t 
' 
    Application.Run "PERSONAL.XLSB!TrasposeData" 
    ActiveWindow.Close 
End Sub

任何幫助將不勝感激。

來源

2015-02-09 Abominable Yeti

心靈添加錯誤消息的問題是什麼？如果錯誤號可能會幫助我們幫助你 – 2015-02-09 05:31:59

。是'1004'的原因是你的列A是空可言，也沒有用'0'因此充滿'lastRow'變量結果的小區，你不能創建範圍，行數爲0 – 2015-02-09 06:51:29

結束錯誤確實是1004。我用El Scripto建議的代碼代替，現在錯誤是運行時'424' - 對象需要的錯誤。這個錯誤發生在第一場合： Sheet2.Activate – 2015-02-11 01:18:58

因此我花了一點時間研究今天終於拿到了它的工作。該腳本張貼如下：

Sub TransposeData() 
' 
' TransposeData Macro 
' Traspose the data on sheet1 to sheet2 to allow for mail merge 
' 

Sheets("Sheet1").Select 

Dim sourceRange As Range 
Dim lastRow As Long 

lastRow = Cells(Rows.Count, "A").End(xlUp).Row 

Set sourceRange = ActiveSheet.Range("A1:C" & lastRow) 

sourceRange.Copy 

Sheets("Sheet2").Select 

Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 

' Keyboard Shortcut: Ctrl+Shift+T 
' 
End Sub

感謝El Scripto和KazJaw的建議，非常感謝。

來源

2015-02-11 01:48:12

在你的代碼，這樣做的：

lastRow = WorksheetFunction.CountA(Range("A:A")) 
Set sourceRange = ActiveSheet.Range(Cells(1, 1), Cells(lastRow, 1))

計數沒有空單元格的數量，但它可能不會給你的最後一個單元格（邏輯錯誤）。就像上面寫的KazJaw一樣，這可能也是可能出現錯誤的原因。

一個更好的辦法是使用（它取代了上面兩行）：

Set SourceRange = ActiveSheet.Range(Cells(1, 1), _ 
         Cells(ActiveSheet.UsedRange.Rows.Count, 1))

試試吧，如果失敗的話，請張貼錯誤消息。

複製錯誤的一種簡單方法是隻需單擊錯誤消息框，然後按下CTRL + C，然後按下CTRL + C，它應該將錯誤詳細信息以純文本複製到剪貼板，以便您可以將其粘貼到此處。

來源

2015-02-09 07:24:02

你的想法是錯誤的。原始的和你對'Set sourceRange ='的建議不能互換使用，都可以指完全不同的範圍。 – 2015-02-09 07:29:45

你說得對。「我的錯」。我更新了我的答案，以便更好地匹配他的代碼。 – 2015-02-09 08:09:32

仍然沒有正確的，但要好得多......你應該使用類似'...細胞（rows.count，「A」）。結束（xlup）...' – 2015-02-09 08:46:16

VBA移調的動態範圍在Excel

回答

相關問題