0

私は一般的に vba とプログラミングの初心者ですが、既存のコードが十分に単純であれば、通常は変更できます。見つかった別のマクロによって定義されたパスに基づいて、別のブックからセルを取得するマクロを変更しました。列 A に基づいてセルを正しく取得するようになりました。列 AF (異なる基準) に基づいて情報を取得する必要があります。私はそれを修正して成功しましたが、前後の列ではなく、次の 41 列 (オフセットが正しく機能していないようです) をコピーしました。

これを修正するにはどうすればよいですか？ブッシュリーグの質問である可能性が高いことをお詫び申し上げます。

ThisWB = ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path = GetFileName

        Set Wkb = Workbooks.Open(FileName:=path)
        For Each WS In Wkb.Worksheets
            WS.Select
            B = Application.CountA(Range("A:A"))
            If B = 0 Then
                            Else
                For Each Cell In Range("A1:A" & B)
                If VarType(Cell.Value) <> vbnumber Then
                A = Application.CountA(Workbooks(ThisWB).Sheets("ComplaintsFetched").Range("A:A")) + 1
               Range(Cell, Cell.Offset(0, 41)).Copy Workbooks(ThisWB).Sheets("ComplaintsFetched").Range("A" & A)
               End If
               Next Cell
            End If
        Next WS
        Wkb.Close False
Application.EnableEvents = True
Application.ScreenUpdating = True

Set Wkb = Nothing
Set LastCell = Nothing
Workbooks(ThisWB).Sheets("ComplaintsFetched").Select
4

2 に答える 2

1

あなたの関数呼び出し:

Range(Cell, Cell.Offset(0, 41)).Copy 
    Workbooks(ThisWB).Sheets("ComplaintsFetched").Range("A" & A)

次のことを行っています。Range(Cell, Cell.Offset(0, 41)は、現在のセル (最初の引数) から 0 行離れたセルまで、現在のセル (2 番目の引数) の右に 41 列の範囲を選択することを意味します。

これが、次の 41 列を選択する理由です。

代わりに、前後のセル、事実上行全体を選択するには、次のことを試してください。

Range(Cell).EntireRow.Copy Workbooks(ThisWB).Sheets("ComplaintsFetched").Range("A" & A)

これにより、必要な行の列 A から始まる行全体がシートから苦情ワークシートにコピーされます。

于 2013-02-05T20:04:59.667 に答える
0

Offset はその名前が示すように、元のサイズと同じサイズの選択範囲を返します。その後、Rows() および Columns() メソッドで制限できます。

何をしようとしているのかよくわかりませんが、

Cell.Offset(0,41).Copy

範囲 Cell の右にセル 41 列をコピーします。

Excel マクロで変数 A と B に名前を付けることはお勧めできません。列 A と B と混同しやすいからです。

于 2013-02-05T20:11:35.207 に答える