00:10:00
問題已解決
老師，假設我A1至A10內容都是“水果”，B1是蘋果，b2是橘子，b3是香蕉…A11至a18內容是“飲料”b11是奶茶，b12是雪碧…我想變成A1內容是水果，B1，c1，d1…對應蘋果，橘子，香蕉…；A2內容是飲料，對應了b2,b3…是奶茶，雪碧…有沒有什么快速方法呢？內容相當多
溫馨提示：如果以上題目與您遇到的情況不符，可直接提問，隨時問隨時答
在 Excel 中，您可以使用以下方法來快速實現您的需求：
1.首先，選中 A1:A10 單元格區域，然后按下?Ctrl + C?進行復制。
2.接著，選中 A1 單元格，右鍵單擊，在彈出的菜單中選擇“選擇性粘貼”。
3.在“選擇性粘貼”對話框中，勾選“轉置”，然后點擊“確定”。這樣就將 A1:A10 中的“水果”豎排變為了橫排。
4.按照同樣的方法，將 B1:B10 中的水果名稱進行轉置粘貼到 B1 開始向右的單元格區域。
5.對于“飲料”及對應的名稱，重復上述步驟即可。
如果數據量非常大，您也可以考慮使用 VBA 宏編程來實現
2024 07/22 08:58
84785001 
2024 07/22 09:01
vba怎么用啊
84785001
2024 07/22 09:02
我就是覺得前面的方法很容易錯，且速度很慢，所以想找快速的方法
樸老師 
2024 07/22 09:06
Sub TransposeData()
? ?Dim lastRowFruit As Long
? ?Dim lastRowDrink As Long
? ?Dim i As Long
? ?Dim j As Long
? ?Dim fruitData As Range
? ?Dim drinkData As Range
? ?到水果和飲料數據的最后一行
? ?lastRowFruit = Cells(Rows.Count, 1).End(xlUp).Row
? ?lastRowDrink = Cells(Rows.Count, 11).End(xlUp).Row
? ?擇水果數據范圍
? ?Set fruitData = Range(A1:A %26 lastRowFruit)
? ?置水果數據并粘貼到新位置
? ?fruitData.Copy
? ?Range(B1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
? ?擇飲料數據范圍
? ?Set drinkData = Range(A11:A %26 lastRowDrink)
? ?置飲料數據并粘貼到新位置
? ?drinkData.Copy
? ?Range(B11).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub
使用方法：
1.打開您的 Excel 工作表。
2.按下?Alt + F11?打開 VBA 編輯器。
3.在 VBA 編輯器中，點擊“插入” -> “模塊”，然后將上述代碼粘貼到模塊中。
4.回到 Excel 工作表，按下?Alt + F8?打開“宏”對話框，選擇“TransposeData”宏，點擊“執行”按鈕。
84785001
2024 07/22 10:42
這些代碼要到哪里輸入啊？我沒有vba
樸老師
2024 07/22 10:47
沒有的話這個沒法操作的
閱讀 1439
描述你的問題，直接向老師提問
33
意見反饋
