I have some base64 strings in column A and I have tested the Application Match but it seems it doesn't work with long strings (I am not sure)
Code: Select all
Sub Test()
Dim x, s As String
s = Range("A49").Text
x = Application.Match(s, Columns(1), 0)
If Not IsError(x) Then
Debug.Print x
End If
Dim r As Long
For r = 1 To 100
If Cells(r, 1).Value = s Then Debug.Print r
Next r
End Sub
Any ideas how to use match with long strings?
Example:
Code: Select all
iVBORw0KGgoAAAANSUhEUgAAAJYAAAAyCAIAAAAx7rVNAAAJfklEQVR42u2cZ1QVRxiG13bsIscCKMejgiIqCKJeLEdALEgUjaJoFAwWNCpqBBRjISiW2EHRKJYoikaxtyh20dhjN/Zu7L3rj7x35mbY7Ny73AX5cc+d9wdnz5a5e/bZ753vm5lF8iVqRtS8efMWLVq0bNmyVatWAQEBrVu3/oaobdu2QUFB7dq1+5aoY8eOwcHBnTp16ty5c0hISJcuXb4j6t69e2hoaFhY2PdEPXv27NWrV+/evfv06RMREdG3b98fiAYMGDBw4MDIyMhBgwYNHjz4R6KoqKjo6OiYmJhhw4YNHz48Njb2J6JRo0aNHj16zJgxPxONHTt23LhxCQkJ48ePnzBhwsSJE38hmjJlytSpU6dNmzZ9+vQZM2YkJiYmJSXNmjVr9uzZycnJc+bM+ZVo/vz5KSkpCxYsWLhw4aJFi34jWrp0aWpq6rJly5YvX56WlrZixYrfiVavXp2enr5mzZq1a9euW7duw4YNGzdu3LRp0+bNm7ds2bJ169Y/iHbs2JGRkbFz585du3bt3r177969+/bt279//4EDBzIzMw8ePPgn0ZEjR44ePXrs2LHjx4+fOHHiL6LTp0+fOXPm7Nmz586dO3/+/IULF/4munz58pUrV65evXrt2rXr16/fvHnz1q1bt2/fvnPnzt27d+/du/cP0cOHDx89eiSBn5+fH/j5+/szhAFEgYGB4NemTRuKsH379uDXoUMHhjCEqGvXruDXrVs3OcLw8HCGMIKoX79+4Ne/f3+GEPyGDBkCfkOHDmUIhxONGDEC/EaOHClHGB8fzxBOIJo0aRL4TZ48mSEEv5kzZzKEyURz584Fv3nz5jGE4Ld48WLwW7JkCUOYRrRy5UrwW7VqFUMIfuvXr2cItxBt27YN/LZv384Qgt+ePXsYwkyiQ4cOgd/hw4cZwhNE4Hfq1CmG8DzRxYsXwe/SpUsMIfjduHGDIbxLdP/+ffB78OCBEYQtiFgIMoRBRAxhMBELQYYwlKhHjx4UYS8iFoIM4UAiGoIMYTQRC0GGcDRRXFwcRTiOiIUgQziViIYgECYRsRBkCFOIaAgyhKlELAQZwnQiGoJAuJGIhSBDmEFEQxAI9xGxEGQIjxLREDx58iRFeIaIhSBDeIWIhiAQ3iJiIcgQPiKShItatIs+fvxYEi5q0S76P4R57aI4iva9vLxcXFyqVq3q7Ozs5ubWtGlTNCVcNMcu+uTJEymvXRTUPTw8bG1tJdPKly+fk5MTXhpEpHBRTS5qQJgXLoqrpJxKuKj5Lvr06VMpL1wUTUm5kHBR813UgPCru2j9+vVziVC4qJkuqkeYFy6KhCU3CIWLmu+iBoRfPRetUKFCLhGa6aIUoTW76LNnz6RsXRQIsY0QbPmfdDodagPGic9FS5UqVa5cuQYNGoC0qYoel1SsWLFAgQIKfkhfFS6KDbw09erVq1atWtGiRQsWLEivwt9ChQqhaLFmF33+/Lmk4qJQo0aNQMvV1bVs2bL29vZgg6eWP39++UPnK3rsUa/osYG6ELWEgh/AozRkCFHygyiPWS6ULtbsonqEKi6KPXZ2dvQJ8o9bjlDTuCg2UNEjmBTN4odwFep6AMZGnTp16Dnqwm9Zs4u+ePFCUnFR7DSnV9M0Loq/8OQSJUpQfnKEuBOU9kiXsoWHy/38/JDj0KLCml00C6HRXBR/0QPZ2NioW5mmcVHEa+XKlemF8GTWSKVKlXAO7gFeqoh49H+Ojo41a9aEqyOrQj9KKwqRi2YhVMlFsRMPrnbt2vRpokd0cnJSIDTfRbHH29ubRpicH7ZxOe4Bfa2CH34OqS/YI68RFT3vonqE5lT0UJUqVQAbmSGyGwVC810ULZcuXZoPQdoyi055aIKcqOhVXPTly5eS1ore3d2dR2iOi+Jo9erVaZDBG9nlDg4OCLLGjRsXKVJE0TIaERW9uovqEWqt6NEnGUWYrYsiC6WQUJMwt8QGLUJQ8ymaBVoxLpqti7569UrSOi5ao0YNHmG2LooLWXIrt1DYcmxsLH60fPnyimZ9fX3RDk4oU6YM8in0oDgHXSmyVuGiLAT1CLWOi/Lhkq2LYgMk6ICAfFigcOHCiE4UggjQ4sWLK5rFUVM5sE6nQzgKFwXC169fS1rHRZ2dnXmE6i6KFpDKMudkF/r4+NA5epQu5lTxciG9Qo8oXDQLofmzSzxCdRcFSJTq/BAPwi4qKorO0detW1dl9Ede0ctJIwMSLmpAqGl2CVmlKYRGXRSNoDPjeTRr1oytdEIUGkWIohBVKV6akiVLUgeGu8qtGJdbuYvqEWqdXeLTGRUXBUVPT09+cAdFBQ1BirBhw4aKoXPI1dU1Li4O6WhMTAwKRzZqI28NKY+Vu+ibN28krXP0tWrV4hGaclG0gEfPhxc8UL5eFL/OpzPR0dGsnIiPj0f9amNjwxceVu6ieoRa5+jRsRlFyLsoNoyGF/aArny9KN4SvqgANnlFj9yVjfPJR+as3EXfvn0raZ2j59fFmHJRnOzo6MiHoIuLi2K9KHjDNvlyU17Ro8ZHCas4B6Zq5S6qR6h1pRM8kJ905V0UwhM3WiqgZcWqewgnK+K1SZMminFRvEaKpmxtba3cRd+9eydpXemETJJHyLsooHp4ePD8YH101bZi1T3Op4krS02RfOIoG1TD37CwMEVr3t7eVu6iWQiNuij2eHl56XQ6nMBWOuF8ft6cd1GcabSWgGEaXXWPbX9/f0VpgXIiISGBIkRqgxtTtIa01spd1IDQlIuCqJ2dHavEUU7A7nDIFEJ5LgrefCJD55VMfbsEHnzOaW9vj7oTCHGmomfF6yVcVI9Q3UVztpwQsE0t6IYnq3y7hPcA/mnOSA1wIjqFi75//15Sz0V9fHzgZloHMIEQISKfkZBXe+rfLiF1QpKiWFajkLu7O7IbkYsaEJqTi2qNRSB0c3MzCj7bL0ABEjfAJvcVKlasGG4yMTFRVPTURT98+CBpXXWPnUhwHBwcjD5i7EcLkZGRqD1QFYSHh+fsC1CcjxaQEOE9QJ+KgEY3iVQIN4B+UYyLshDUI8zxqntsBwQEoNJHzFUhQs3u6+uLo1/lO3ocQlNIUz09PWHLgYGBaJPyE+OiDOHHjx8l8R29RbuoAaH4jt5yXVSJUPw3EotzUT1C4aIW7aKfPn2ShItatIv+D6FwUUt00c+fP0vCRS3aRQ0IhYtarot++fJFEi5q0S5qQChc1HJdVI9QuKhFuyj0L+odweNvTcwrAAAAAElFTkSuQmCC