给我显示50个数字，要求：以表格1列显示，不能超过100，并且大于0，无序，两位最好是30-80之间的数，可以为保留两位小数的整数，也可以为小数，精度为小数点后

以下是符合要求的50个数字：

50.23
12
67.89
32.45
56
78
44.67
73
60.12
47.89
25.78
66.23
54.56
70.34
43.21
30
57
62.33
38.67
72.11
49.99
76.54
42.36
64.78
55.43
33.99
68.01
39.23
75.67
48.09
79.87
52.11
35.67
58.98
41.22
69.33
51.12
36.78
80
63.01
46.44
71.22
34.56
59.99
45.67
77.89
31.23
53.45
74.56

相关问题

比较在同一张表格的两个4列的无序数据，在第二张表格用红色字体标出差异，在第三张表格只显示差异数据

您可以使用Excel的条件格式和筛选功能来实现这个需求。具体步骤如下：

1. 在第二张表格中选中需要比较的两个4列的无序数据区域，点击“条件格式” -> “新建规则” -> “使用公式确定要设置格式的单元格”，输入以下公式：
=AND(ISNA(MATCH(A1,$E$1:$H$5,0)),A1<>"")
这个公式的意思是，如果当前单元格的值在第二个数据区域中没有找到匹配项，且当前单元格不为空，则将其标红。

2. 在第三张表格中选中需要比较的两个4列的无序数据区域，点击“数据” -> “筛选”，在弹出的筛选界面中，选择需要显示的列，并勾选“仅显示与以下条件匹配的行”，在下拉框中选择“颜色”，并选择红色，点击确定即可。

这样，第二张表格中差异数据已经用红色字体标出，第三张表格中也只显示了差异数据。注意，以上方法假设第一个数据区域在当前工作表中，如果不在当前工作表中需要修改公式中的数据区域范围。

用VBA代码实现比较在同一张表格的两个4列的无序数据，在第二张表格用红色字体标出差异，在第三张表格只显示差异数据

以下是用VBA代码实现比较在同一张表格的两个4列的无序数据，在第二张表格用红色字体标出差异，在第三张表格只显示差异数据的方法：

1. 首先打开Excel，按下Alt + F11进入VBA编辑器。

2. 在VBA编辑器中，打开需要操作的Excel文件，然后点击“插入” -> “模块”，在新建的模块中输入以下代码：

Sub CompareData()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim arr1 As Variant, arr2 As Variant, arr3 As Variant
    Dim i As Long, j As Long, k As Long
    
    ' 指定需要操作的工作表
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    Set ws3 = Worksheets("Sheet3")
    
    ' 获取需要比较的数据区域
    arr1 = ws1.Range("A1").CurrentRegion.Value
    arr2 = ws1.Range("E1").CurrentRegion.Value
    
    ' 在第二张表格中标出差异
    For i = 1 To UBound(arr1, 1)
        For j = 1 To UBound(arr1, 2)
            If IsError(Application.Match(arr1(i, j), arr2, 0)) And arr1(i, j) <> "" Then
                ws2.Cells(i, j).Font.Color = vbRed
            End If
        Next j
    Next i
    
    ' 在第三张表格中只显示差异数据
    k = 1
    For i = 1 To UBound(arr1, 1)
        For j = 1 To UBound(arr1, 2)
            If IsError(Application.Match(arr1(i, j), arr2, 0)) And arr1(i, j) <> "" Then
                arr3(k, 1) = arr1(i, j)
                arr3(k, 2) = arr1(i, j + 1)
                arr3(k, 3) = arr1(i, j + 2)
                arr3(k, 4) = arr1(i, j + 3)
                k = k + 1
            End If
        Next j
    Next i
    
    ' 在第三张表格中输出差异数据
    ws3.Range("A1").Resize(k - 1, 4).Value = arr3
End Sub

3. 在代码中，首先指定需要操作的工作表，然后获取需要比较的数据区域。接着，在第二张表格中标出差异，如果某个单元格的值在第一个数据区域中没有找到匹配项，且当前单元格不为空，则将其标红。最后，在第三张表格中只显示差异数据，将差异数据存储到一个数组中，然后输出到第三张表格中。

4. 在代码输入完成后，按下F5执行代码，即可实现比较在同一张表格的两个4列的无序数据，在第二张表格用红色字体标出差异，在第三张表格只显示差异数据的功能。