問題已解決

老師,假設(shè)我A1至A10內(nèi)容都是“水果”,B1是蘋果,b2是橘子,b3是香蕉…A11至a18內(nèi)容是“飲料”b11是奶茶,b12是雪碧…我想變成A1內(nèi)容是水果,B1,c1,d1…對應(yīng)蘋果,橘子,香蕉…;A2內(nèi)容是飲料,對應(yīng)了b2,b3…是奶茶,雪碧…有沒有什么快速方法呢?內(nèi)容相當多

84785001| 提問時間:07/22 08:54
溫馨提示:如果以上題目與您遇到的情況不符,可直接提問,隨時問隨時答
速問速答
樸老師
金牌答疑老師
職稱:會計師
在 Excel 中,您可以使用以下方法來快速實現(xiàn)您的需求: 1.首先,選中 A1:A10 單元格區(qū)域,然后按下?Ctrl + C?進行復制。 2.接著,選中 A1 單元格,右鍵單擊,在彈出的菜單中選擇“選擇性粘貼”。 3.在“選擇性粘貼”對話框中,勾選“轉(zhuǎn)置”,然后點擊“確定”。這樣就將 A1:A10 中的“水果”豎排變?yōu)榱藱M排。 4.按照同樣的方法,將 B1:B10 中的水果名稱進行轉(zhuǎn)置粘貼到 B1 開始向右的單元格區(qū)域。 5.對于“飲料”及對應(yīng)的名稱,重復上述步驟即可。 如果數(shù)據(jù)量非常大,您也可以考慮使用 VBA 宏編程來實現(xiàn)
07/22 08:58
84785001
07/22 09:01
vba怎么用啊
84785001
07/22 09:02
我就是覺得前面的方法很容易錯,且速度很慢,所以想找快速的方法
樸老師
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 ? ?到水果和飲料數(shù)據(jù)的最后一行 ? ?lastRowFruit = Cells(Rows.Count, 1).End(xlUp).Row ? ?lastRowDrink = Cells(Rows.Count, 11).End(xlUp).Row ? ?擇水果數(shù)據(jù)范圍 ? ?Set fruitData = Range(A1:A %26 lastRowFruit) ? ?置水果數(shù)據(jù)并粘貼到新位置 ? ?fruitData.Copy ? ?Range(B1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True ? ?擇飲料數(shù)據(jù)范圍 ? ?Set drinkData = Range(A11:A %26 lastRowDrink) ? ?置飲料數(shù)據(jù)并粘貼到新位置 ? ?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”宏,點擊“執(zhí)行”按鈕。
84785001
07/22 10:42
這些代碼要到哪里輸入???我沒有vba
樸老師
07/22 10:47
沒有的話這個沒法操作的
描述你的問題,直接向老師提問
0/400
      提交問題

      相關(guān)問答

      查看更多

      最新回答

      查看更多

      您有一張限時會員卡待領(lǐng)取

      00:10:00

      免費領(lǐng)取
      Hi,您好,我是基于人工智能技術(shù)的智能答疑助手,如果有什么問題可以直接問我呦~