請問我要excel每50行導(dǎo)出一個(gè)txt怎么操作，您知道么 如何把excel每一行各導(dǎo)出為一個(gè)txt文本,并且以對應(yīng)每行...
Dim MyRowNo As Long, MySplitNum As Long, MyStartNo As Long, MyI As Long, MyOutDir As String
Dim MyCh, MyRows, MyCols, i
MySplitNum = 50 '截取每50行保存為txt文件，可自行修改該數(shù)字
If MySplitNum < 1 Then MySplitNum = 50
MyI = 1
MyCh = 65
MyOutDir = "C:\Documents and Settings\Administrator\桌面\11\" '截取的內(nèi)容保存為txt時(shí)的輸出目錄，可自行修改
If Dir(MyOutDir, vbDirectory) = "" Then
MsgBox "輸出目錄不存在，請重新指定或者新建該目錄后重試！", vbCritical, "警告"
Exit Sub
End If
ActiveSheet.UsedRange.Select
MyRows = ActiveSheet.UsedRange.Rows.Count
MyCols = ActiveSheet.UsedRange.Columns.Count
If MyRows = 1 And MyCols = 1 Then
MsgBox "目標(biāo)表為空表，操作被取消！", vbInformation, "消息"
Exit Sub
ElseIf MyRows <= MySplitNum Then
MsgBox "目標(biāo)表行數(shù)過少，無須分切，操作被取消！", vbInformation, "消息"
Exit Sub
End If
Open MyOutDir & "1A.txt" For Output As #11
For i = 1 To ActiveSheet.UsedRange.Rows.Count
Print #11, ActiveSheet.UsedRange.Cells(i, 1)
If i Mod MySplitNum = 0 Then
Close #11
MyI = MyI + 1
MyCh = MyCh + 1
Open MyOutDir & Trim(str(MyI)) & Chr(MyCh) & ".txt" For Output As #11
If MyCh = 90 Then MyCh = 64
End If
Next
On Error Resume Next
Close #11
MsgBox "數(shù)據(jù)截取保存完畢！", vbInformation, "消息"
End Sub
Sub test()
arr = ActiveSheet.UsedRange
For i = 1 To UBound(arr)
If i Mod 50 = 1 Then Open "D:emp\" & i & ".txt" For Output As #1
Print #1, Join(Application.Index(arr, i, 0), vbTab)
If i Mod 50 = 0 Or i = UBound(arr) Then Close #1
Next
End Sub
Sub OutPutToTxt()
Dim i As Long
Dim n As Long
Dim File_Path As String
Dim Str As String
i = 1
n = 1
Open "C:\" & i & ".txt" For Output As #1 ‘文件路徑可自行更改
For Each Row In ThisWorkbook.ActiveSheet.UsedRange.Rows
For Each Cel In Row.Cells
If Str = "" Then
Str = Cel.Value
Else
Str = Str & "," & Cel.Value
End If
Next
Print #1, Str
Str = ""
n = n + 1
If n > 50 Then
Close #1
i = i + 1
Open "C:\" & i & ".txt" For Output As #1
n = 1
End If
Next
Close #1
End Sub
寫段vba，應(yīng)該可以
我在EXCEL表中有50行數(shù)據(jù),現(xiàn)在需要將每行數(shù)據(jù)復(fù)制成4行。如原來A1到A50...
假設(shè)原數(shù)據(jù)在A列,可以在B1單元格輸入公式 =OFFSET($A$1,INT((ROW(A1)-1)\/5),)然后下拉填充公式即可
我在excel電話簿模板中只能查找50行,請問怎么能查找更多數(shù)據(jù)?請高手看 ...
把C$50統(tǒng)一改為更大的行之后，按CTRL+SHIFT+ENTER結(jié)束，因?yàn)檫@是數(shù)組公式
請問如何在EXCEL表格中提取50行,100行,150行,有關(guān)50行倍數(shù)的數(shù)據(jù),急用...
假如你在表2需要提取表1 50、100...50行倍數(shù)的數(shù)據(jù) 那么在表2 A列輸入如下公式A1=OFFSET(表1！$A$1,ROW()*50-1,)D1=OFFSET($C$1,ROW()*50-1,)將公式下拉就可以
如果我的excel模板只有50行,而我的數(shù)據(jù)有100行,怎么使用模板?
選中前50行,按ctrl+C 再在要插入行的地方,按ctrl+shift+"+(加號)"
excel右側(cè)滾動條設(shè)置問題 我的excel數(shù)據(jù)只有50行,在用右側(cè)滾動條的時(shí)候...
選中51行，按ctrl+shift+下，然后點(diǎn)刪除，保存。此時(shí)你拖動滾動條只能到50行，但用鼠標(biāo)滾輪的話還是能繼續(xù)往下拉。
EXCEL一列數(shù)據(jù),每49個(gè)單元轉(zhuǎn)置一次
萬能的vba可以實(shí)現(xiàn) 假設(shè)數(shù)據(jù)列在a列，從第一行開始。轉(zhuǎn)置后存放在b列~。。如圖:第一步：編制轉(zhuǎn)置宏，代碼如下：Sub 轉(zhuǎn)置()Dim jgarr(1 To 1000, 1 To 49)zz1 = 1: zz2 = 0For i = 1 To Cells(65535, 1).End(xlUp).Rowzz2 = zz2 + 1jgarr(zz1, zz2) = Cells(i, 1)If ...
excel的隨機(jī)點(diǎn)名怎么弄
一、準(zhǔn)備數(shù)據(jù) 1. 在Excel工作表中創(chuàng)建一列名單，每行包含一個(gè)學(xué)生的名字。二、使用隨機(jī)函數(shù) 1. 選中一個(gè)空白單元格，輸入“=RAND”來調(diào)用隨機(jī)函數(shù)。2. 在函數(shù)列表中選擇“RANDBETWEEN”，這是生成隨機(jī)整數(shù)的函數(shù)。3. 設(shè)置參數(shù)范圍，例如如果你的名單是從第2行到第50行，那么就輸入“RANDBETWEEN”。...
txt文檔大概有5000多行的數(shù)據(jù),需要平均每500行分一組,然后保存在一個(gè)新...
把TXT文檔用WORD打開，設(shè)置頁面使每行數(shù)據(jù)在WORD中的一行能夠完整顯示，在頁面設(shè)置里設(shè)置每頁的行數(shù)指定為50行，然后每10頁的數(shù)據(jù)就是500行，分別存儲成TXT格式
excel如何提取一個(gè)字符串中的一段字符?
excel利用常用的兩個(gè)函數(shù)提取字符串中的特定字符串，一起看看吧 在表格處理中，有時(shí)會需要從字符串中提取特定的字符串，我們利用常用的兩個(gè)函數(shù)：LEFT()和find()，就能輕松完成，下面我們一起操作演示一下吧。打開表格 將地址這一列中的字符串，提取出'區(qū)'之前的內(nèi)容放入另一列中。left(字符串，數(shù)值...
excel公式怎么把各列文本合并到一個(gè)單元格?
如果想要將幾個(gè)單元格中的文本合并，有很多種方法。然而，有一種方法最會被忽視，可能是我們很少使用的緣故。它就是“內(nèi)容重排”命令，如下圖1所示。圖1 例如，下圖2所示的工作表單元格區(qū)域A1:A6中有一些文本數(shù)據(jù)，現(xiàn)在想將它們合并到一個(gè)單元格中。圖2 可以按下列步驟操作：1.調(diào)整列A的寬度使其...
相關(guān)評說：
嵐山區(qū)剖切： ______ Sub DaoChu() Dim I As Integer, J As Long, RW As Long RW = ActiveSheet.UsedRange.Rows.Count CW = ActiveSheet.UsedRange.Columns.Count For I = 1 To CW Open ＂D:\＂ & Chr(Asc(＂A＂) + I - 1) & ＂行.txt＂ For Output As 1 For J = 1 To ...
嵐山區(qū)剖切： ______ A1=＂12601-＂&TEXT(INT((ROW()-1)/50)+1,＂12600＂)
嵐山區(qū)剖切： ______ 該圖演示了10行變一行的公式,如果要20行轉(zhuǎn)一行,將公式中10改為20即可. =INDIRECT(＂A＂&ROW(A1)*10-10+COLUMN(A1))
嵐山區(qū)剖切： ______ 只能通過 手動設(shè)置打印區(qū)域,來實(shí)現(xiàn)吧.
嵐山區(qū)剖切： ______ 數(shù)據(jù)在a列 在b1輸入 =index(a:a,row(a1)*10+1) 向下托 就會得到 a11,a21,,,,,,,
嵐山區(qū)剖切： ______ 在工作當(dāng)中用電子表格來處理數(shù)據(jù)將會更加迅速、方便,而在各種電子表格處理軟件中,Excel以其功能強(qiáng)大、操作方便著稱,贏得了廣大用戶的青睞.雖然Excel使用很簡單,不過真正能用好Excel的用戶并不多,很多人一直停留在錄入數(shù)據(jù)的水...
嵐山區(qū)剖切： ______ 輸入以下公式,然后向右向下填充公式=OFFSET($A$1,(ROW(A1)-1)*10+COLUMN(A1)-1,) 詳見附圖示例
嵐山區(qū)剖切： ______ 親,你是要打印么?Excel可以每隔50行分一頁,不過要用VBA.下面是代碼:Sub fy() Dim i As Long For i = 51 To ActiveSheet.UsedRange.Rows.Count Step 50 ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1) Next i End Sub
嵐山區(qū)剖切： ______ EXCEL批處理問題:如何批量提取多個(gè)excel文件里sheet1的第一行的方法.如下參考:1.如下圖所示,我們在TXT文本中有一些數(shù)據(jù)內(nèi)容,希望將它們傳輸?shù)絜xcel電子表格中.我們打開excel表格.2.在表上方的菜單工具欄中有一個(gè)data選項(xiàng),...
嵐山區(qū)剖切： ______ 親,你沒說導(dǎo)出的是幾列呀?附件是按導(dǎo)出A/B兩列寫的VBA程序.Sub st()Dim rg As ObjectDim StrtempDim cycles, i, rc As...
