Question

网页 需要文件夹 下的照片

Sheet1原数据

有2000多行的。

sheet2输出数据

请问在Sheet2的公式应该怎么做啊？
晕，标题没有设置对！！大家看内容吧。





Answer 1

用公式的话，大概要分两步：
1、先取全部数据
sheet2的A1：=offset(sheet1!$A$1,roundup(row(a1)/10,0),0)&offset(sheet1!$A$1,0,mod(row(a1)-1,10)+1)
B1：=offset(sheet1!$A$1,roundup(row(a1)/10,0),mod(row(a1)-1,10)+1)
选中A1、B1，下拉复制

2、复制结果，选择性粘贴－数值，再筛选出B列为0的数据，删除即可

Answer 2

我用VBA做了一个，你在SHEET1换上你的内容即可。请看合你意吗？

 Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, k As Integer
Sheets("Sheet1").Select
Columns("M:N").Select
Selection.ClearContents
k = 1
For i = 2 To 2001   '表的总行数请改前面的2001数值
    a = Cells(i, 1)
    For j = 2 To 11 '表的总列行数请改前面的11数值
        b = Cells(1, j)
        c = Cells(i, j)
        If Cells(i, j) <> "" Then
            Cells(k, 13) = a & b
            Cells(k, 14) = c
            k = k + 1
    End If
    Next
Next
Sheets("Sheet1").Select
Columns("M:N").Select   '请根据表的总列行数请改前面的结果所在的列号M:N列
Selection.Cut
Sheets("Sheet2").Select
ActiveSheet.Paste
End Sub