A. excel vba 如何将文件内容每一样另存为一个TXT小子我需要处理一些数据元素 一共有2000多行 怎样分存
Sub Macro2()Dim i As IntegerDim x As IntegerSet fs = CreateObject("Scripting.FileSystemObject")For i = 1 To x 'x是最后一行的行号Set a = fs.CreateTextFile("c:\fl" & i & ".txt", True) '在C盘根目录下建立以fl加序号的TXT文件x=1DoIf x=1 then t=Cells(i, x)Else t= t & " " & Cells(i, x) 把i行的所有数据赋值到变量t，以空格隔开End Ifx=x+1Loop Until Cells(i, x) = "" a.WriteLine (t) '把I行的相应的数据写入TXT文件a.CloseSet a =NothingNext iSet fs =NothingEnd Sub
B. 怎样用VBA进行EXCEL拆分
加我扣，27895344，给你解决
C. EXCEL VBA实现将一个excel分解成多个excel文档，自己写的代码有点问题，求教啊！
Sub 分解()Dim H As Long, H1 As Long, M As String, K As Integer, BM As WorkbookDim PAT As StringApplication.ScreenUpdating = FalsePAT = ThisWorkbook.Path & "\"With Sheet2 Rows("1:1").Select Selection.Delete Shift:=xlUp '第一行没用 H = .Range("a65536").End(xlUp).Row For H1 = 1 To H '此处有问题，H的值并为纳入循环 If M = "" Then M = .Cells(H1, 1).value End If If .Cells(H1, 1) <> .Cells(H1 + 1, 1) Then Set BM = Workbooks.Add(1) .Range(.Cells(H1 – K, 1), .Cells(H1, 5)).Copy BM.Sheets(1).Cells(1, 1) BM.SaveAs Filename:=PAT & M & ".csv" BM.Close True M = "" K = 0 Else K = K + 1 End If Next H1End WithApplication.ScreenUpdating = TrueEnd Sub2.处理38这个在复制前就处理掉好，不要后处理。可以在 For H1 = 1 To H If M = "" Then之间插入下列代码。 If Left(.Cells(H1, 5).Text, 2) – 38 = 0 Then .Cells(H1, 5) = Right(.Cells(H1, 5).Text, Len(.Cells(H1, 5).Text) – 2) End If3.修改A1的值就和上面的老兄一样：cells(1,1).value=3或range("A1").value=3
D. excel中，用VBA编写的，将一列中相同的内容的行提取出来单独生成文件
代码如下：
如果你是2003以上版本的Excel，那么请将上面三个地方的.xls更换成.xlsx
详细可下载附件测试，新文件在新建的以时间命名的“分类汇总”文件夹内。
PrivateSubCommandButton1_Click()Dimarrarr=Range("A1:C"&[a65536].End(3).Row)DimiAsLong,wNameAsString,wPathAsStringwName="分类汇总"&Format(Now(),"hhmmss")DimdcAsObject,wbAsWorkbook,nAsLongSetdc=CreateObject("Scripting.dictionary")wPath=ThisWorkbook.Path&""&wNameMkDirwPathFori=2ToUBound(arr)IfNotdc.exists(arr(i,1))ThenSetwb=Workbooks.Addwb.SaveAswPath&""&arr(i,1)&".xls"'001wb.Sheets(1).Name=arr(i,1)'填写表头wb.Sheets(1).[a1]=arr(1,1)wb.Sheets(1).[b1]=arr(1,2)wb.Sheets(1).[c1]=arr(1,3)dc.Addarr(i,1),""EndIfWithWorkbooks(arr(i,1)&".xls").Sheets(1)'002n=.[a65536].End(3).Row+1.Cells(n,1)=arr(i,1).Cells(n,2)=arr(i,2).Cells(n,3)=arr(i,3)EndWithNextDimarar=dc.keysFori=0ToUBound(ar)Workbooks(ar(i)&".xls").CloseTrue'003NextEndSub
E. excel 求VBA代码，把按A列内容拆成独立工作表，求大神
你的数据实现是排序过的吗？还是随机乱序的？如果排序过的实现起来非常简单。如果没有排序的话，也可以实现，稍微有点麻烦。
F. excel中怎么样按某一列的数据自动分成几张表格（要在不同的工作簿中vba）
1 下载附件，点击按钮
2 按要求根据C列在本工作簿路径下创建N个工作簿并导入有关数据，新创建的工作簿按班级名称命名
3 不明白hi我
未经允许不得转载：山九号 » vba一列相同内容拆分为一个文件|excel 求VBA代码把按A列内容拆成独立工作表求大神
