Search : in
By :

Delete row in a range

Last answer on Aug 17, 2008 3:17:50 pm BST Aldo, on Aug 17, 2008 9:05:57 am BST 
 Report this message to moderators

Hello,
I copy a range from sheet1, workbook1 to workbook2, sheet2, after the last row, that means the range from workbook2, sheet2, is each time in another place. I want to delete empty rows from the range that reside in workbook2, sheet2. How should I do that?

Thanx very much

Configuration: Windows XP
Firefox 3.0.1

Best answers for « delete row in a range » in :
Delete duplicates in an Excel column ShowDelete duplicates in an Excel column To remove duplicates in an Excel column: Click on the Data menu Filter Advanced Filter In this menu, select the column where the duplicates Check the box "Extract without duplication"...
[MySQL]Delete duplicates in a table Show[MySQL]Delete duplicates in a table To remove duplicates in a table set up as follows: CREATE TABLE IF NOT EXISTS TabTest ( prim_key integer(4) NOT NULL auto_increment, x integer, y integer, ...
[VBA] Deleting a word in a range of cell Show[VBA] Deleting a word in a range of cell In the case you want to delete a word in a sentence, just create a small macro that removes the word. But it will become difficult when you have word like, for example, "Theword" or "THEWORD" or...
Download Recover Deleted Fat File 2 ShowRecover Deleted Fat File is a recovery tool for hard disks. It allows to restore damaged, corrupt, formatted, overwritten, deleted files. The application supports the following file systems: FAT12, FAT16, FAT32, SATA, ATA, SCSI and the following...

1

jamesyap34, on Aug 17, 2008 2:58:56 pm BST

Hello,

couldnt you select the fields and just press on delete on your keyboard?

Reply to jamesyap34

2

 aquarelle, on Aug 17, 2008 3:17:50 pm BST

Hello,
Maybe, you can adapt this macro :

'To delete empty rows in active worksheet

Sub DeleteEmptyRow()
LastRow = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For x = LastRow To 1 Step -1
      If Application.CountA(Rows(x)) = 0 Then Rows(x).Delete
Next x
End Sub


Best regards "Pour trouver une solution à ses problèmes, il faut s'en donner la peine."

Reply to aquarelle