我的电子表格中有一个变量列表，这些变量属于名为“ a，b，c，d ...”（等）的一些点，代表的点数不尽相同。然后，此列表后面是变量（1、2、3、4 ...”（等）的相似列表，它们的长度也有所不同。
对于一栏，我想做的是：
对于初始数据集，例如对于行“ a”，“ b”，“ c”，“ d”中的4个起点，将从行“ a”，“ b”，“ c“，” d“，” d“; 接下来的4个将从“ b”，“ c”，“ d”，“ d”复制，接下来的3个从“ c”，“ d”，“ d”复制，然后从“ d”，“ d”复制。请参阅链接（格式不是必需的，我只是在文本文件中添加了格式即可，以便更轻松地发现重复序列）。我要复制的数据是标记为“ K-”的列。
http://i.imgur.com/3gCPWxm.png
我敢肯定有几种方法可以做到这一点，我只是无法解决这个问题！
Dim str As String
str = "abcd"
str = str & Right(str, 1)
Debug.Print str
Do While Len(str) > 2
str = Right(str, Len(str) - 1)
Debug.Print str
Loop
输出：
abcdd bcdd cdd dd
对于在单元格上执行的相同操作：
lRow = Cells(1, 2).End(xlDown).Row
Range(Cells(lRow + 1, 2), Cells(lRow * 2 - 1, 2)).Value = Range(Cells(2, 2), Cells(lRow, 2)).Value
Cells(lRow * 2, 2).Value = Cells(lRow * 2 - 1, 2).Value
i = lRow - 1
lRow = lRow * 2
Do While i >= 2
Range(Cells(lRow + 1, 2), Cells(lRow + i, 2)).Value = Range(Cells(lRow - i + 1, 2), Cells(lRow, 2)).Value
lRow = lRow + i
i = i - 1
Loop
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句