wps表格怎么把1列5000行分成10列500行

Question

wps表格怎么把1列5000行分成10列500行

Answer 1

只能用VBA，要么就你手动复制了；

但WPS是不支持VB编程的，所以建议你换微软的OFFICE软件！

哥们，现在就别用WPS了吧。

如果用VBA可以写以下代码：
Sub fenghang()
Dim iRow As Integer
Dim iBegin As Integer
Dim iEnd As Integer
For iRow = 1 To 200000 Step 500
Dim wb As Workbook
iBegin = iRow
iEnd = iRow + 500 - 1
Set wb = Workbooks.Add("book" & iRow)
wb.Sheets.Add ("Sheet1")
wb.Sheets("Sheet1").Range("A1:A500").Value = Range("A" & iBegin & ":C" & iEnd).Value
wb.SaveAs "D:\" & "book" & iRow & ".xls"
wb.Close (True)
Next iRow
End Sub