Question

请问excel高手如何实现以下功能？

让以下名称各自动粘贴918行：
龙华万科城
龙华大润发
龙岗紫微阁店
龙岗横岗志健
龙华苹果园
龙华佳华商场
富宝楼
坂田湾畔百货
龙岗锦绣东方
石岩宏发大世界店
（只取的部分名称，实际更多）
例如：1-918行为‘龙华万科城’；919-1836行就为‘龙华大润发’

Answer 1

问题虽然描述的不够清楚，但基本要求也能让人明白了。所不清楚的是你原有的名称所处的单元格区域是在哪儿。下面就所处单元格区域不同，输入的公式也不同。
一、名称工作表的E列，且从E1单元格开始，要求在A列将每个名称重复918行。
在A1单元格中输入公式【=INDIRECT("E"&ROUNDUP(ROW()/918,0))】，其下单元格复制此公式即可。
二、名称Sheet2工作表的A列，且从A1单元格开始，要求在Sheet1工作表的A列将每个名称重复918行。
在Sheet1工作表的A1单元格中输入公式【=INDIRECT("Sheet2!A"&ROUNDUP(ROW()/918,0))】，其下单元格复制此公式即可。

Answer 2

因为数据量大，用VBA来解决吧
代码如下
Sub aa()
Dim arr
Dim iR&, x&, y&
iR = Range("A65536").End(xlUp).Row
ReDim arr1(1 To iR * 918)
arr = Range("A1:A" & iR)
For x = 1 To UBound(arr)
For y = 1 To 918
arr1(x * 918 - 918 + y) = arr(x, 1)
Next y
Next x
Range("B1").Resize(UBound(arr1), 1) = Application.Transpose(arr1)
End Sub

Answer 3

=INDIRECT(ADDRESS(INT((ROW()-1)/10)+1,1))
注意A列存放的是企业单位名称。

Answer 4

选中1-918 输入龙华万科城 按carl+enter完成

Answer 5

条件说清楚点啊