[QQ33161288]

一行文本数据2万，想平均分成10行，有什么快速办法

[493327747]

我转了个 EXCL 表格 自己定位 2000行 剪切 粘贴 10次
想不到更好的办法了

[A-J]

EmEditor 分割、合併超大 TXT 純文字檔

[QQ33161288]

作者: A-J

EmEditor 分割、合併超大 TXT 純文字檔

这个方法好，excel和word应该也有类似功能，就是不会用。 网上找的教程不合要求

[QQ33161288]

作者: 493327747

我转了个 EXCL 表格 自己定位 2000行 剪切 粘贴 10次
想不到更好的办法了

之前就是用的这个办法，不过我是在txt直接操作，数据多了时间不说，最怕容易出错

[q414501180]

写个小程序就可以啦 源码贴在下面 txt传上来了。

===============================================================================================
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;

namespace ConsoleApplication3
{
class Program
{
static void Main(string[] args)
{
string OpenPath = "D:\\Vs_Code\\随机码 - 副本.txt";
StreamReader TextReader = new StreamReader(OpenPath,Encoding.Default);

string TextLine="";
List<string> TextList = new List<string>();
while ((TextLine = TextReader.ReadLine())!=null)
{
TextList.Add(TextLine);
}
string [] TextArr = TextList.ToArray();


for (int times = 0; times <= 9; times++)
{
string Part = "";
for (int j = 0; j <= 2120-1; j++)
{

Part =Part + TextArr[times * 2120 + j] + "\r\n";
}
string NewFilePath = "D:\\Vs_Code\\随机码 - 分割"+times+".txt";
FileStream fs = new FileStream(NewFilePath, FileMode.Create);
StreamWriter TextWrite = new StreamWriter(fs, Encoding.Default);
TextWrite.Write(Part);
}

}
}
}

[QQ33161288]

作者: A-J

EmEditor 分割、合併超大 TXT 純文字檔

还是有点不完美，我想拆分成10列，在一个文档中，这样又要一个个复制回去

[A-J]

作者: QQ33161288

还是有点不完美，我想拆分成10列，在一个文档中，这样又要一个个复制回去

不懂你的意思

[QQ33161288]

作者: A-J

不懂你的意思

这个是我要的结果，就拆分成20列，要到ID做可变。

[A-J]

用手動的吧

[A-J]

(1) 取出連續固定數值(例如10)儲存格為 1 欄

例如：取儲存格A1:A10為 1 欄、取儲存格A11:A20為 1 欄，依此類推。。

儲存格C1：=OFFSET($A$1,ROW(1:1)+(COLUMN(A:A)-1)*10-1,,)

複製儲存格C1，貼至儲存格C1:G10。

ROW(1:1)+(COLUMN(A:A)-1)*10-1：(以C欄為例)將公式往下複製時，第 1 欄會產生 0,1,2,3, … , 9，第 2 欄會產生 10,11,12,13, … ,19。

[QQ33161288]

前面用的这个这样，文件多了还是很折腾。 而且不能复制到其它excel表格

[A-J]

作者: QQ33161288

前面用的这个这样，文件多了还是很折腾。 而且不能复制到其它excel表格

你這個可能只能寫個VBA來搞了

[A-J]

Sub oneToMany()
   Dim TheRng, TempArr
   Dim i As Integer, j As Integer, colCount As Integer
   Set Dict = CreateObject("Scripting.Dictionary")
   Set Dict2 = CreateObject("Scripting.Dictionary")
   On Error GoTo line1
   If Selection.Cells.Count = 1 Then
     Sheets("Sheet2").Range("a1") = Selection
   Else
     TheRng = Selection
     If UBound(TheRng, 1) Mod 3 = 0 Then
       colCount = UBound(TheRng, 1) / 3
     Else
       colCount = (UBound(TheRng, 1) / 3) + 1
     End If
     ReDim TempArr(1 To 3, 1 To colCount)
     For j = 1 To colCount
       For k = 1 To 3
         If ((j - 1) * 3 + k) <= UBound(TheRng, 1) Then
           TempArr(k, j) = TheRng((j - 1) * 3 + k, 1)
         End If
       Next
     Next
     Sheets("Sheet2").Cells.ClearContents
     Sheets("Sheet2").Cells(1, 1).Resize(UBound(TempArr, 1), UBound(TempArr, 2)) = TempArr
    End If
line1:
End Sub
---------------------

[QQ33161288]

作者: A-J

Sub oneToMany()
Dim TheRng, TempArr
Dim i As Integer, j As Integer, colCount As Integer
Set Dict = CreateObject("Scripting.Dictionary")
Set Dict2 = CreateObject("Scripting.Dictionary")
On Error GoTo line1
If Selection.Cells.Count = 1 Then
Sheets("Sheet2").Range("a1") = ...

这样的结果好像也不对，要平均分成10列