2022-09-22 14:22来源:m.sf1369.com作者:宇宇
vba可以实现,可以分享文件(请通过百度云),帮你分好。
Range(A1:A12).Select Selection.Copy'''''''''''''''''''''''''这个貌似不执行啊 Range(C1:C12).Select ActiveSheet.Paste''''''''''''''''''这个也就不执行了 Windows(1.doc).Activate''''''''''''''这个word含有表格,处于打开状态 Selection.HomeKey wdStory Selection.MoveDown Unit:=wdLine, Count:=11, Extend:=wdExtend Selection.paste''''''''''''''''''''这个不知道有没有写错 上头这一段改成 Range(A1:A12).copy Windows(1.doc).Activate tables(1).cells(1,1).paste 这样应该可以了。
Sub AutoInput()
Dim i, j, k, m, n As Long
Set mysheet1 = ThisWorkbook.Worksheets(Sheet1)
Set mysheet2 = ThisWorkbook.Worksheets(Sheet2)
k = 1 '初始值赋值
For i = 1 To 8 '所要填充的列数为8列
If i Mod 2 = 0 Then
n = 0
For j = 1 To 6
k = k + 1
For m = 1 To 4 '每4列为一组
n = n + 1 '从原表格第一列开始
mysheet2.Cells(n, i) = mysheet1.Cells(k, m) '赋值
Next
Next
End If
Next
End Sub
刚才是是要问5分钟分段的是吧
3/3没理解有什么用,你最终要什么结果,你上图来看看
string s;
for i = 1 to 100
s = cells(1, i)
next i
先插入一个新的工作表,
将第一行整体输入到新表上
外循环按列,
内循环按单元格
将符合的值写过去
循环结束,再将新工作移动出去,成新的工作簿