作者:乔山办公网日期:
返回目录:excel表格制作
如你的数据在A列,那么在B1输入“姓名”,C1输入“年龄”,D列输入“备注"
B2输入公式
=INDIRECT("A"&ROW(A1)*5-4+COLUMN(A1)*2-1)
右拉到C2
选择B2:C2公式下拉完成姓名和年龄的提取
这两项也可分开提取
B2=INDIRECT("A"&ROW(A1)*5-3)
C2=INDIRECT("A"&ROW(A1)*5-1)
在D2中输入公式
=INDIRECT("A"&ROW(A1)*5)
公式下拉完成
如果用VBA就更方便了
代码如下
Sub test()
Dim arr, brr(), x&, i&
arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(arr) Step 5
i = i + 1
ReDim Preserve brr(1 To 3, 0 To i)
brr(1, i) = arr(x + 1, 1)
brr(2, i) = arr(x + 3, 1)
brr(3, i) = arr(x + 4, 1)
Next x
brr(1, 0) = "姓名"
brr(2, 0) = "年龄"
brr(3, 0) = "备注"
Range("B:D").ClearContents
Range("B:D").Borders.LineStyle = 0
With Range("B1").Resize(UBound(brr, 2) + 1, 3)
.Value = Application.Transpose(brr)
.Borders.LineStyle = 1
End With
End Sub
运行此宏,连边框都给你搞好了e799bee5baa6e997aee7ad94e58685e5aeb9362。
1、Excel的A列中有如下数据,从中提取市名,例如A列中提取“青岛”到来B列中:
2、因为这些数据规律是非常固定的,所以可以用分裂、快速填充等提取,源这里用了mid函数,显示是从第3个字符百开始,提取2个字符:
3、输入mid函数之后,可以看到函数有三个参数,如上步分析,参数很好确定:
4、按下回车,结束公式的输入,如下图所示:
5、下拉填充公式,得到最终的结果如下图所示,完成效果图。度
B2储存格公式下拉。
=TRIM(LEFT(SUBSTITUTE(MID(A2,FIND("AAAA",A2),MATCH(,-MID(MID(A2,FIND("AAA
A",A2),99),ROW($1:$99),1))),",",REPT(" ",99)),99))。
用VB更好解决,公式有点啰嗦,如我下图所复示,在F1单元格输入公式=INDEX(A:A,SMALL(IF($B$1:$B$1000="Lot Number",ROW($1:$1000),4^8),ROW(A1)))&""
数组公式,Ctrl+Shift+回车键结束公式,使公制式前后生成百大度括号{}后,右拉到I列,再下拉公式。 提取出知第一部分。道
在J1单元格输入公式=INDEX($D:$D,SMALL(IF((ISNUMBER($B$1:$B$1000*1))*(LEN($B$1:$B$1000)>=8),ROW($1:$1000)+COLUMN(A1)-1,4^8),ROW(A1)))&""
仍然是数组公式,Ctrl+Shift+回车键结束公式,使公式前后生成大括号{}后,右拉到K列,再下拉公式。 提取出第二部分。