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 Sub
Anmä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?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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!