Sub test()z1 = Cells(Rows.Count, "A").End(xlUp).RowFor Each cell In Range("a2:e" & z1)If cell = "" ThenIf Len(xx) = 0 Thenxx = cell.AddressElsexx = xx & "," & cell.AddressEnd IfEnd IfNextRange(xx).SelectEnd Sub
کامنت