如何自动将一行数据填充到同一列的每隔X行位置？

完全可行，以下是主流表格工具的具体实现方法：

Excel 方法 #

公式法（无需宏） #

假设你的原始50个数据在第1行（比如A1:AX1），要填充到同一列（比如A列），每隔X行放置一个数据（例如X=10时，数据依次在A1、A11、A21...）：

1. 在目标列的第一个单元格（如A1）输入公式：

   =IF(MOD(ROW()-1,X)=0, INDEX($1:$1, (ROW()-1)/X + 1), "")
   

2. 把公式下拉到足够覆盖所有数据的行数（比如X=10时，下拉到第1 + 49*10 = 491行）。

公式逻辑：判断当前行号是否符合间隔规则，符合则从原始行提取对应位置的数据，否则留空。

VBA宏法（适合批量操作） #

如果需要更自动化的操作，可使用宏：

1. 按Alt+F11打开VBA编辑器，插入一个新模块。
2. 粘贴以下代码，根据你的实际情况修改参数：

   Sub FillWithGap()
       Dim sourceRange As Range
       Dim targetStart As Range
       Dim gap As Integer
       Dim i As Integer
       
       ' 修改以下参数匹配你的需求
       Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:AX1") ' 原始数据行
       Set targetStart = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 目标列起始单元格
       gap = 10 ' 间隔行数
       
       ' 循环填充数据
       For i = 1 To sourceRange.Cells.Count
           targetStart.Offset((i - 1) * gap, 0).Value = sourceRange.Cells(1, i).Value
       Next i
   End Sub
   

3. 运行宏即可完成填充。

Google Sheets 方法 #

操作逻辑和Excel一致，公式通用：

在目标列起始单元格输入：

=IF(MOD(ROW()-1,X)=0, INDEX($1:$1, (ROW()-1)/X + 1), "")

然后下拉到对应行数即可。

内容的提问来源于stack exchange，提问作者Jakub Zahradka