['   \n  \n "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ', 'ਕੋਡ ਫਾਰ ਐਕਸਲ ਇਨ ਵੀ. ਬੀ. ਏ. ਡਰ ਡੁਪਲੀਕੇਟ ਔਸ ਈਨਰ ਲਿਸਟ ਲੌਸਚਟ ਐਨਹੈਂਡ ਡਰ ਸਲੂਸਲਸਪਾਲਟਨ ਡੀ ਅਤੇ ਆਈ', ' [\'VBA ਵਿੱਚ Excel ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡਡੁਪਲੀਕੇਟ ਡੀਲੀਟ () \\n ਡਿਮ tbl ਸੂਚੀ ਸਾਰਣੀ ਦੇ ਰੂਪ ਵਿੱਚ \\n ਡਿਮ ਕੁੰਜੀ ਰੇਂਜ ਦੇ ਰੂਪ ਵਿੱਚ \\n ਡਿਮ i ਪੂਰਨ ਅੰਕ ਦੇ ਰੂਪ ਵਿੱਚ, j ਪੂਰਨ ਅੰਕ ਦੇ ਰੂਪ ਵਿੱਚ, ਬੁਲੀਅਨ ਦੇ ਰੂਪ ਵਿੱਚ ਮੇਲ ਖਾਂਦਾ ਹੈ \\n ਡਿਮ ਡੁਪ ਬੁਲੀਅਨ ਦੇ ਰੂਪ ਵਿੱਚ \\n\\n ਸੈੱਟ tbl =ActiveSheet.ListTables ("Datenbank") \\n\\n i = 1 ਤੋਂ tbl.ListColumns ਲਈ। ਗਿਣਤੀ\\n ਸੈੱਟ ਕੁੰਜੀ = tbl.ListColumns (i) \\n\\n j = 1 ਤੋਂ tbl.ListRows.Count \\n ਡੁਪ ਲਈ= ਗਲਤ \\n\\n ਜੇਕਰ key.Value = tbl.ListRows (j). ਸੈੱਲ (1,2). ਮੁੱਲ ਅਤੇ tbl.ListRows (j). ਸੈੱਲ (1,3). ਮੁੱਲ = tbl.ListRows (j). ਸੈੱਲ (1,4). ਮੁੱਲ ਫਿਰ \\n ਡੁਪ =ਸਹੀ \\n ਅੰਤ ਲਈ ਬਾਹਰ ਨਿਕਲੋ ਜੇਕਰ \\n\\n ਅਗਲਾ j\\n\\n ਜੇਕਰ ਡੁਪ ਹੋਵੇ ਤਾਂ \\n tbl.ListRows (i). ਸੈੱਲ (1,2). ਮੁੱਲ = "\\n tbl.ListRows (i). ਸੈੱਲ (1,3). ਮੁੱਲ =" \\n "tbl.ListRows (i). ਸੈੱਲ (1,4). ਮੁੱਲ = "\\n ਅੰਤ ਜੇਕਰ \\n ਅਗਲਾ i\\n ਅੰਤ ਸਬ \\n ਅੰਤ ਸਬ \\n", \'ਕੀ ਇਹ ਇੱਕ ਡਾਈਸਮ ਸਟੇਟਮੈਂਟ ਗਲਤ ਸੀ\'] ', 'ਕੋਡ ਫਾਰ ਐਕਸਲ ਇਨ ਵੀ. ਬੀ. ਏ. ਡਰ ਡੁਪਲੀਕੇਟ ਔਸ ਈਨਰ ਲਿਸਟ ਲੌਸਚਟ ਐਨਹੈਂਡ ਡਰ ਸਲੂਸਲਸਪਾਲਟਨ ਡੀ ਅਤੇ ਆਈ', ' [\'VBA ਵਿੱਚ Excel ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡ ਲਈ ਇੱਕ ਕੋਡਡੁਪਲੀਕੇਟ ਡੀਲੀਟ () \\n ਡਿਮ tbl ਸੂਚੀ ਸਾਰਣੀ ਦੇ ਰੂਪ ਵਿੱਚ \\n ਡਿਮ ਕੁੰਜੀ ਰੇਂਜ ਦੇ ਰੂਪ ਵਿੱਚ \\n ਡਿਮ i ਪੂਰਨ ਅੰਕ ਦੇ ਰੂਪ ਵਿੱਚ, j ਪੂਰਨ ਅੰਕ ਦੇ ਰੂਪ ਵਿੱਚ, ਬੁਲੀਅਨ ਦੇ ਰੂਪ ਵਿੱਚ ਮੇਲ ਖਾਂਦਾ ਹੈ \\n ਡਿਮ ਡੁਪ ਬੁਲੀਅਨ ਦੇ ਰੂਪ ਵਿੱਚ \\n\\n ਸੈੱਟ tbl =ActiveSheet.ListTables ("Datenbank") \\n\\n i = 1 ਤੋਂ tbl.ListColumns ਲਈ। ਗਿਣਤੀ\\n ਸੈੱਟ ਕੁੰਜੀ = tbl.ListColumns (i) \\n\\n j = 1 ਤੋਂ tbl.ListRows.Count \\n ਡੁਪ ਲਈ= ਗਲਤ \\n\\n ਜੇਕਰ key.Value = tbl.ListRows (j). ਸੈੱਲ (1,2). ਮੁੱਲ ਅਤੇ tbl.ListRows (j). ਸੈੱਲ (1,3). ਮੁੱਲ = tbl.ListRows (j). ਸੈੱਲ (1,4). ਮੁੱਲ ਫਿਰ \\n ਡੁਪ =ਸਹੀ \\n ਅੰਤ ਲਈ ਬਾਹਰ ਨਿਕਲੋ ਜੇਕਰ \\n\\n ਅਗਲਾ j\\n\\n ਜੇਕਰ ਡੁਪ ਹੋਵੇ ਤਾਂ \\n tbl.ListRows (i). ਸੈੱਲ (1,2). ਮੁੱਲ = "\\n tbl.ListRows (i). ਸੈੱਲ (1,3). ਮੁੱਲ =" \\n "tbl.ListRows (i). ਸੈੱਲ (1,4). ਮੁੱਲ = "\\n ਅੰਤ ਜੇਕਰ \\n ਅਗਲਾ i\\n ਅੰਤ ਸਬ \\n ਅੰਤ ਸਬ \\n", \'ਕੀ ਇਹ ਇੱਕ ਡਾਈਸਮ ਸਟੇਟਮੈਂਟ ਗਲਤ ਸੀ\', \'ਕੋਡ ਜ਼ਿਆਦਾਤਰ ਸਹੀ ਹੈ,ਪਰ ਕੁੱਝ ਮੁੱਦੇ ਹਨਃ \\n\\n1. ਪ੍ਰਾਇਮਰੀ ਲਈ "tbl.ListColumns.Count" ਨੂੰ "tbl.ListColumns.Count + 1" ਨਾਲ ਬਦਲਿਆ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ।ਕੁੰਜੀ ਕਾਲਮ. \\n2. ਨੈਸਟਡ "ਫਾਰ" ਲੂਪ ਵਿੱਚ, "ਡੁਪ" ਵੇਰੀਏਬਲ ਨੂੰ ਘੋਸ਼ਿਤ ਕੀਤਾ ਜਾਂਦਾ ਹੈ ਅਤੇ "ਫਾਲਸ" ਸੈੱਟ ਕੀਤਾ ਜਾਂਦਾ ਹੈ, ਪਰ ਇਸ ਦੀ ਵਰਤੋਂ ਨਹੀਂ ਕੀਤੀ ਜਾਂਦੀ। \\n3. "tbl.ListRows (i). ਸੈੱਲ (1,2). ਮੁੱਲ = "ਕੋਡ ਦੀ ਲਾਈਨ \'ਤੇ ਟਿੱਪਣੀ ਕੀਤੀ ਗਈ ਹੈ ਅਤੇ ਇਸ ਨੂੰ ਹਟਾਇਆ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ। \\n4." tbl.ListRows (i). ਸੈੱਲ (1,3). ਮੁੱਲ = ""ਅਤੇ "tbl.ListRows (i). ਸੈੱਲ (1,4). ਮੁੱਲ =" ਕੋਡ ਦੀਆਂ ਲਾਈਨਾਂ ਟਿੱਪਣੀਆਂ ਕੀਤੀਆਂ ਗਈਆਂ ਹਨ ਅਤੇ ਹਟਾ ਦਿੱਤੀਆਂ ਜਾਣੀਆਂ ਚਾਹੀਦੀਆਂ ਹਨ। \\n5. "ਐਗਜ਼ਿਟ ਫਾਰ" ਬਿਆਨ ਟਿੱਪਣੀ ਕੀਤੀ ਗਈ ਹੈ।ਬਾਹਰ ਕੱਢੋ ਅਤੇ ਜੇਕਰ ਡੁਪਲੀਕੇਸ਼ਨ ਪਾਈ ਜਾਂਦੀ ਹੈ ਤਾਂ ਨੈਸਟਡ "ਫਾਰ" ਲੂਪ ਤੋਂ ਬਾਹਰ ਨਿਕਲਣ ਲਈ ਇੱਕ ਸ਼ਰਤ ਨਾਲ ਬਦਲਿਆ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ। \\n6. "ਇਫ ਡੁਪ" ਬਿਆਨ ਉੱਤੇ ਟਿੱਪਣੀ ਕੀਤੀ ਗਈ ਹੈ।ਬਾਹਰ ਕੱਢੋ ਅਤੇ ਡੁਪਲੀਕੇਟ ਕਤਾਰ ਨੂੰ ਮਿਟਾਉਣ ਲਈ ਇੱਕ ਸ਼ਰਤ ਨਾਲ ਬਦਲਿਆ ਜਾਣਾ ਚਾਹੀਦਾ ਹੈ ਜੇ ਡੁਪਲੀਕੇਸ਼ਨ ਪਾਈ ਜਾਂਦੀ ਹੈ। \',\' ਕੀ ਇਹ ਇੱਕ ਡਾਈਸਮ ਸਟੇਟਮੈਂਟ ਗਲਤ ਨਹੀਂ ਸੀ? ਜੇ ਕੁੰਜੀ ਅੰਦਰ ਹੈws.range ("a2: a" ਅਤੇ ਆਖਰੀ ਰੋ). ਮੁੱਲ ਫਿਰ ws.range ("a" ਅਤੇ i). ਮਿਟਾਓ "] ', 'ਕੋਡ ਫਾਰ ਐਕਸਲ ਇਨ ਵੀ. ਬੀ. ਏ. ਡਰ ਡੁਪਲੀਕੇਟ ਔਸ ਈਨਰ ਲਿਸਟ ਲੌਸਚਟ ਐਨਹੈਂਡ ਡਰ ਸਲੂਸਲਸਪਾਲਟਨ ਡੀ ਅਤੇ ਆਈ \n ']