数据按列拆分（可选择）
Posted lyzifan
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了数据按列拆分（可选择）相关的知识，希望对你有一定的参考价值。
Sub shi()
Dim i, k, l As Integer
Dim sht As Worksheet
irow = Sheet1.Range("a65536").End(xlUp).Row
l = InputBox("input name plase")
For i = 2 To irow
k = 0
For Each sht In Sheets
If sht.Name = Sheet1.Cells(i, l) Then
Sheet1.Cells(i, l).EntireRow.Copy sht.Range("a65536").End(xlUp).Offset(1, 0)
k = 1
End If
Next
If k = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheet1.Cells(i, l)
Sheet1.Range("a1").EntireRow.Copy Sheets(Sheets.Count).Range("a1")
Sheet1.Cells(i, l).EntireRow.Copy Sheets(Sheets.Count).Range("a65536").End(xlUp).Offset(1, 0)
End If
Next
End Sub
以上是关于数据按列拆分（可选择）的主要内容，如果未能解决你的问题，请参考以下文章