ਕ੍ਰੀਮੀ ਅਨ ਕੌਕਸ ਵੀ. ਬੀ. ਪਰ ਐਕਸਲ ਇਨ ਗਰਾਡੋ ਡੀ ਇਨਸਰੀਅਰ ਰਿਕਾਰਡ, ਨੈਲਾ ਪ੍ਰਾਈਮਾ ਕੋਲੋਨਾ 1 ਸਟ੍ਰਿੰਗਾ, ਨੈਲਾ ਸੈਕੰਡਾ 1 ਨੰਬਰ, ਇੱਕ ਟੈਬੇਲਾ ਵਿੱਚ'] ", 'ਕ੍ਰੀਮੀ ਅਨ ਕੌਂਸ ਵੀ. ਬੀ. ਪਰ ਐਕਸਲ ਇਨ ਗਰਾਡੋ ਡੀ ਇਨਸਰੀ ਰਿਕਾਰਡ, ਨੈਲਾ ਪ੍ਰਾਈਮਾ ਕੋਲਨਾ 1 ਸਤਰ, ਨੈਲਾ ਸੈਕੰਡਾ 1 ਨੰਬਰ, ਇੱਕ ਟੈਬੇਲਾ ਵਿੱਚ', ' [\'ਕ੍ਰੀਮੀ ਅਨ ਕੌਕਸ ਵੀ. ਬੀ. ਪਰ ਐਕਸਲ ਇਨ ਗਰਾਡੋ ਡੀ ਇਨਸਰੀਅਰ ਰਿਕਾਰਡ, ਨੈਲਾ ਪ੍ਰਾਈਮਾ ਕੋਲਨਾ 1 ਸਟ੍ਰਿੰਗਾ, ਨੈਲਾ ਸੈਕੰਡਾ 1 ਨੰਬਰ, ਇੱਕ ਟੈਬੇਲਾ ਵਿੱਚ\', \'ਕੁਐਸਟੋ ਏ ਯੂ.ਸੰਖੇਪ ਰੂਪ ਵਿੱਚ ਸੰਯੁਕਤ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਸੰਯੁਕਤ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਸੰਯੁਕਤ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱਚ ਇੱਕ ਵਿਸ਼ੇਸ਼ ਰਾਜ ਅਮਰੀਕਾ ਵਿੱnumero: \\n "\'vbnet\\nSub ਸੰਮਿਲਿਤ ਕਰੋ ਰਿਕਾਰਡ () \\n\\n ਡਿਮ i ਸੰਪੂਰਨ ਸੰਖਿਆ ਦੇ ਰੂਪ ਵਿੱਚ ਸੰਪੂਰਨ ਸੰਖਿਆ ਦੇ ਰੂਪ ਵਿੱਚ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਪੂਰਨ ਸੰਸਤਰ \\n ਡਿਮ ਨੰਬਰ ਇੱਕ ਪੂਰਨ ਅੰਕ ਦੇ ਰੂਪ ਵਿੱਚ \\n ਡਿਮ tbl ਇੱਕ ਲਿਸਟ ਆਬਜੈਕਟ ਦੇ ਰੂਪ ਵਿੱਚ \\n ਡਿਮ ਨਿਊਰੋਵ ਇੱਕ ਬੁਲੀਅਨ ਦੇ ਰੂਪ ਵਿੱਚ \\n\\n \'ਸੇਲੇਜ਼ੀਓਨੇਅਰ ਲਾ ਟੈਬੇਲਾ \\n ਸੈੱਟ tbl =ActiveSheet.ListObjects ("ਟੇਬਲ 1") \\n\\n\\ \'ਡੈਟਾਗਲੀਓ ਡੇਲ ਨੰਮਰੋ ਡੀ ਫਿਲਾ ਦਾ ਇਨੀਜ਼ੀਅਰ ਦਾਲ \\n ਲਾਸਟ ਰੋ = tbl.Range.Rows.Count \\n ਲਾਸਟ ਕਾਲਮ =tbl.Range.Columns.Count \\n\\n \'ਖਤਮ ਕਰੋ ਅਖੀਰ ਵਿੱਚ ਰਿਕਾਰਡ ਡੁਪਲੀਕੇਟੀ \\n i = 1 ਤੋਂ ਲੈਸਟ ਰੋ-1 ਲਈ \\n ਜੇਕਰ tbl.DataBodyRange.Cells (i, 1). ਮੁੱਲ =tbl.DataBodyRange.Cells (i + 1,1). ਮੁੱਲ ਫਿਰ \\n ਨਿਊਰੋ = False\\n ਐਗਜ਼ਿਟ ਫਾਰ \\n ਐਂਡ ਜੇਕਰ \\n ਅਗਲਾ i\\n\\n \'ਇੰਸੇਰੀਅਰ i ਨਿਊਓਵੀ ਰਿਕਾਰਡ \\n ਲਈ i = 1 ਤੋਂ ਨੰਬਰ-1 ਲਈj = 1 ਤੋਂ ਆਖਰੀ ਕਾਲਮ ਲਈ-1 \\n tbl.DataBodyRange.Cells (i, j + 1). ਮੁੱਲ = ਸਟਰ\\ਨ tbl.DataBodyRange.Cells (i, j + 2). ਮੁੱਲ = ਨੰਬਰ ਜੇਕਰnewRow = ਸੱਚ ਫਿਰ \\n tbl.DataBodyRange.Cells (i, j + 1). ਮੁੱਲ = "\\n ਨਵਾਂRow = ਗਲਤ \\n ਅੰਤ ਜੇਕਰ \\n ਅਗਲਾ j\\n ਅਗਲਾ i\\n\\n ਅੰਤ ਸਬ \\n" \'\\nAssicurati dy"ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1" ਦਾ ਨਾਂ "ਟੇਬਲ 1ਇੱਕ ਸੈਲਾ ਵਿੱਚ ਇੱਕ ਤਲ \'] ', 'ਕ੍ਰੀਮੀ ਅਨ ਕੌਂਸ ਵੀ. ਬੀ. ਪਰ ਐਕਸਲ ਇਨ ਗਰਾਡੋ ਡੀ ਇਨਸਰੀ ਰਿਕਾਰਡ, ਨੈਲਾ ਪ੍ਰਾਈਮਾ ਕੋਲਨਾ 1 ਸਤਰ, ਨੈਲਾ ਸੈਕੰਡਾ 1 ਨੰਬਰ, ਇੱਕ ਟੈਬੇਲਾ ਵਿੱਚ \n ']