0

ActiveSheetスクリプトがあり、生データを取得してデータを行Q：Vに移動します。実行され、最後の行がどこにあるかを示すVBAスクリプトがあります。この場合、最後の行は77です。

lastrow = .Cells(.Rows.Count, "Q").End(xlUp).Row

QからVまでの最後の行にそれを置き、コピーしてシート1に貼り付けたい...

こんな感じになると思いますが、まずはここで確認したいのですが…普段行っているサイトがなんらかの理由でメンテナンスのためダウンしているので。

Sub test()
         Dim wsPOD As Worksheet
    Dim wsPOT As Worksheet
    Dim wsPOA As Worksheet
    Dim cel As Range
    Dim lastrow As Long, i As Long, Er As Long

    Set wsPOD = Sheets("PO Data")
    Set wsPOT = Sheets("PO Tracking")
    Set wsPOA = Sheets("PO Archive")

        With ActiveSheet
            .AutoFilterMode = False
            Intersect(.UsedRange, .Columns("A")).Cut .Range("Q1")
            Intersect(.UsedRange, .Columns("D")).Cut .Range("R1")
            Intersect(.UsedRange, .Columns("C")).Cut .Range("S1")
            Intersect(.UsedRange, .Columns("B")).Cut .Range("T1")
            Intersect(.UsedRange, .Columns("G")).Cut .Range("U1")
            Intersect(.UsedRange, .Columns("F")).Cut .Range("V1")
            lastrow = .Cells(.Rows.Count, "N").End(xlUp).Row
            Intersect (.UsedRange.Range("Q:V" & lastrow).Copy)
            Intersect (wsPOT.Range("B3:H" & lastrow).PasteSpecialxlPasteFormats)
         End With
End Sub

誰かが私を助けてくれるなら、これは明らかにうまくいきません。

4

2 に答える 2

2

これはあなたが試していることですか>

 With ActiveSheet
    .AutoFilterMode = False
    '
    '~~> Rest of the code
    '
    lastRow = .Range("N" & Rows.Count).End(xlUp).Row
    .Range("Q1:V" & lastRow).Copy
    wsPOT.Range("B3").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
 End With

xlPasteFormatsフォーマットのみを貼り付け、値は貼り付けません。値を貼り付けたい場合は、に変更xlPasteFormatsしますxlPasteValues

于 2012-05-17T19:53:32.370 に答える
0 
Option Explicit
Sub copylocation()
  Dim EC As Long
  Dim X As Long
  Dim Y As Long
  X = Range("B1").End(xlUp).Offset(1, 0).Row
  EC = Range("b1").End(xlToLeft).Offset(0, X).Column
  Windows("Book2").Activate
  Range("b1:AB" & EC).Select
  Selection.Copy
  Windows("Book1").Activate
  Range("b1").Select
  ActiveSheet.Paste
End Sub
于 2013-04-24T21:15:19.533 に答える