excel中怎樣批量將行數(shù)據(jù)轉(zhuǎn)換成列數(shù)據(jù)

你用什么截圖的？看不清里面是什么。

往后抓圖，按鍵盤上的“PrtSc2 SysRq”鍵就可以抓圖了，再通過Q或其他載體保存起來就是一個(gè)jpg照片文檔。

B1輸入

=IF(MOD(ROW(),5)=1,OFFSET($A1,COLUMN(A:A),),"")

回車并向右填充到E1，再一起向下填充。

你好，樓主想要的功能，可以使用VBA程序?qū)崿F(xiàn)。

（一）VBA程序代碼如下：（代碼運(yùn)行之前請做好數(shù)據(jù)備份，以免丟失）

Sub?abcd()
Dim?i1,?i2,?i3,?str
On?Error?Resume?Next
Set?mysheet1?=?ThisWorkbook.Worksheets("Sheet1")??'定義工作表Sheet1

For?i1?=?1?To?1000??'從第1行到1000行
?If?mysheet1.Cells(i1,?1)?<>?""?Then?????'如果單元格不是空白，則
??str?=?Mid(mysheet1.Cells(i1,?1),?1,?1)?'截取第一個(gè)字符
??If?IsNumeric(str)?=?True?Then??????????'如果截取的字符是數(shù)字，則
???i2?=?i1
???i3?=?1
??Else
???i3?=?i3?+?1
??mysheet1.Cells(i2,?i3)?=?mysheet1.Cells(i1,?1)??'把ABCD項(xiàng)寫入含有數(shù)字的那一行
?End?If
End?If
Next

End?Sub

（二）程序運(yùn)行前后的結(jié)果如下圖所示，望笑納。

如上圖輸入并下拉。

如圖進(jìn)行查找替換，全部替換。

完成。