从每个工作表中的单元格值填充列

Question

我要做的是从特定单元格中获取值并将它们设为填充列。我有多个工作表，其中包含不同的值。

此代码在一个工作表上按预期工作：

Sub Formatting_one()

   Range("A12").Value = Range("M6").Value
   Range("A12:A" & Cells(Rows.Count, 7).End(xlUp).Row).FillDown

End Sub

然后，我开始尝试同样的事情，但在工作表中循环。这就是我坚持的观点。这是我的代码：

Sub Formatting_many()

    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        ws.[A1].Resize(, 6).EntireColumn.Insert

        ws.Range("A12").Value = ws.Range("M6").Value
        ws.Range("A12:A" & Cells(Rows.Count, 7).End(xlUp).Row).FillDown

        ws.Range("B12").Value = ws.Range("M7").Value
        ws.Range("B12:B" & Cells(Rows.Count, 7).End(xlUp).Row).FillDown

        ws.Range("C12").Value = ws.Range("M8").Value
        ws.Range("C12:C" & Cells(Rows.Count, 7).End(xlUp).Row).FillDown

        ws.Range("D12").Value = ws.Range("I5").Value
        ws.Range("D12:D" & Cells(Rows.Count, 7).End(xlUp).Row).FillDown

        ws.Range("E12").Value = ws.Range("I4").Value
        ws.Range("E12:E" & Cells(Rows.Count, 7).End(xlUp).Row).FillDown

        ws.Range("F12").Value = ws.Range("I6").Value
        ws.Range("F12:F" & Cells(Rows.Count, 7).End(xlUp).Row).FillDown

        ws.Range("G12").Value = ws.Range("I7").Value
        ws.Range("G12:G" & Cells(Rows.Count, 7).End(xlUp).Row).FillDown

    Next ws

End Sub

我一步一步做了，结果是该单元格被复制到填充范围单元格的第一个单元格中但随后被删除。有人可以帮忙吗？

Answer 1

问题……

... 是您在 G 列中查找最后使用的行

Cells(Rows.Count, 7).End(xlUp).Row

但是由于您添加了 6 列 ws.[A1].Resize(, 6).EntireColumn.Insert 列 G 现在是空的，所以最后使用的行是 1

你真的跑了

ws.Range("A12:A1").FillDown

它从 A1 中取出空单元格并将其填充到 A12 （因此您在 A12 中插入的值被删除）。

---

解决方案

插入原始列 G 后移至

ws.Cells(ws.Rows.Count, 7 + 6).End(xlUp).Row