无法弄清楚;如何将数据排序到excel

Question

感谢我能提供的所有帮助：

所以我有数百行的数据（每天都有更多的数据加载）

基本上，我的数据范围是1-80，但我希望能够将数据放入其中;

例如，我希望将7放置在7,10中放置在10,65放置在第65行。

我可以手动执行此操作，但必须有代码，论坛，脚本或其他可以立即使用的内容吗？

我感谢您提供的所有帮助或建议！

Answer 1

试试这个

Sub Demo()
    Dim ws As Worksheet
    Dim lastCol As Long, lastRow As Long
    Dim arr, item
    Dim rng As Range

    Set ws = ThisWorkbook.Sheets("Sheet3")  'change Sheet3 to your data sheet
    With ws
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row                'get last row with data in Column1
        lastCol = .Cells(lastRow, .Columns.Count).End(xlToLeft).Column  'get last column with data in last row
        Set rng = .Range(.Cells(lastRow, 1), .Cells(lastRow, lastCol))  'set range for last row
        arr = rng.Value                                                 'put range values in an array
        rng.ClearContents                                               'clear last row
        For Each item In arr                                            'loop through each item in array
            .Cells(lastRow, item).Value = item                          'write item values into cell
        Next item
    End With
End Sub

输出：

此代码适用于Column A中数据的最后一行。

Answer 2

如果您想将每个随机数放入相应的列中，请使用下面的公式。 =IF(IFERROR(MATCH(CF$1,$A2:$CB2,0),"")="","",CF$1)。在单元格CF2中输入此公式，然后将其拖到整个表格下方。在列A:CB中输入所有随机原始值（总共80列）。你应该得到这个结果（请注意我已经隐藏了几列）：