Question

尝试填充范围，但范围目标始终更改。我如何调整填充的单元格范围（下面列为A3：A12），并根据b列的单元格范围调整“A12”的某种变量？例如B3-B19所以A3-A19在一张纸上填充A2，在另一张纸上填充B3-B49意味着B3-B49在另一张纸上填充A2，而不必每次都更换宏...谢谢！

Sub Space_delimiter2col()
Application.DisplayAlerts = False
With Range(Selection.Cells, Selection.Cells.End(xlDown))
    .TextToColumns Destination:=.Cells(1, 1), _
                   DataType:=xlDelimited, _
                   Space:=True
End With
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Value = "Switch"
Range("A3:A12").Value = Range("B1").Value
Rows(1).EntireRow.Delete

End Sub

Answer 1

如果B列中有连续的一系列数据，您可以将Range("A3:A12").Value = Range("B1").Value替换为Range("A3:A" & Range("B3").End(xlDown).Row).Value = Range("B1").Value。

如果B栏没有连续的一系列数据，和，您想要填写的系列末尾下面没有数据，您可以使用{ {1}}取代Range("A3:A" & Cells(Rows.Count,2).End(xlUp).Row).Value = Range("B1").Value。

供参考，包括样本数据总是有用的：请参阅https://stackoverflow.com/help/mcve

使用基于相邻填充列的现有单元格信息填充列

1 个答案: