Hur flyttar jag en viss rad till ett nytt ark när kryssrutan är markerad i Excel?
Den här artikeln talar om att flytta en viss rad till ett nytt ark när kryssrutan är markerad i Excel.
Flytta rad när kryssrutan är markerad med VBA-kod
Flytta rad när kryssrutan är markerad med VBA-kod
Gör så här för att flytta en viss rad till ett angivet kalkylblad när du markerar en kryssruta i Excel.
1. Flytta till kalkylbladet du behöver för att flytta rad baserat på kryssrutan, klicka Utvecklare > Insert > Kryssruta (ActiveX-kontroll) för att infoga en kryssruta. Se skärmdump:
2. Högerklicka på arkfliken och klicka sedan på Visa kod från högerklickmenyn. Se skärmdump:
3. I öppningen Microsoft Visual Basic för applikationer kopiera och klistra in under VBA-koden i kodfönstret.
VBA-kod: Flytta rad till ett angivet kalkylblad när en kryssruta är markerad
Private Sub CheckBox1_Click()
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
If CheckBox1.value Then
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range row you will move(single cell)：", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1).EntireRow
xRg.Copy
ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
xRg.Clear
Application.CutCopyMode = False
End If
End SubAnmärkningar: I koden anger Shee3 och A1 att den angivna raden flyttas till den första raden i Sheet3. Ändra dem baserat på dina behov.
4. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.
5. Stäng av designläget genom att klicka på Designläge knappen på Utvecklare fliken.
6. Markera kryssrutan och sedan a Kutools för Excel dialogrutan dyker upp, välj den första cellen i raden （eller hela raden） du behöver flytta och klicka på OK knapp. Sedan flyttas den angivna hela raden till ett visst kalkylblad omedelbart. Se skärmdump:
Relaterade artiklar:
- Hur flyttar jag hela raden till ett annat ark baserat på cellvärde i Excel?
- Hur flyttar jag hela raden till botten av det aktiva arket baserat på cellvärde i Excel?
De bästa Office-produktivitetsverktygen
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
- återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
- Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
- Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
- Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
- Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
- Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
- Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
- Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
- Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
