Troubleshooter of Error: Counting how many items from one column appear in other columns.

Counting how many items from one column appear in other columns.

I'm having trouble with a macro that will allow me to go through the items in column A, and then compare them to the objects in column B, C, and D individually, posting the total number of items from A found in cells F1 for B, F2 for C, and F3 for D
 
ie.
    A               B              C                D                             E                             F
1 Apple       Orange       Banana     Pineapple      Items from A found in B:           1
2 Orange    Cucumber   Grapes      Tomato         Items from A found in C:          3
3 Banana                     Apple        Pear              Items from A found in D:          0
4 Grapes

Anwsers to the Problem Counting how many items from one column appear in other columns.

Download SmartPCFixer for Free Now

Hi,
Try this macro
Sub Count_Matches()
Dim MyRow As Long, x As Long
MyRow = 1
Dim LastRow As Long, LastCol As Long, SrcCol As Range
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
LastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Set SrcCol = Range("A1:A" & LastRow)
For x = 2 To LastCol
LastRow = Cells(Cells.Rows.Count, x).End(xlUp).Row
 For Each R In Range(Cells(1, x), Cells(LastRow, x))
    If Not IsError(Application.Match(CStr(R.Value), SrcCol, 0)) Then
    matches = matches + 1
    End If
 Next
 Cells(MyRow, LastCol + 2) = matches
 matches = 0
 MyRow = MyRow + 1
Next
End Sub

If this post answers your question, please mark it as the Answer.
Mike H

Don't Download Malware

Where are you getting the download?

There are malicious people who download valid copies of a popular download, modify the file with malicious software, and then upload the file with the same name. Make sure you are downloading from the developer's web page or a reputable company.

Don't install download manager

Many sites suggest or require you to install an installer or a download manager before allowing you to download a program you may be interested in downloading. These tools almost always cause your computer more problems and may even have malware or other spyware. Avoid any site claiming anything must be installed first before you can continue with your download.

Avoid advertisements on download pages

To help make money and pay for the bandwidth costs of supplying free the software, the final download page may have ads. Watch out for anything that looks like advertisements on the download page. Many advertisers try to trick viewers into clicking an ad with phrases like "Download Now", "Start Download", or "Continue" and that ad may open a separate download.

Cancel or deny any automatic download

Some sites may automatically try start a download or give the appearance that something needs to be installed or updated before the site or video can be seen. Never accept or install anything from any site unless you know what is downloading.

Another Safe way to Repair the Problem: Counting how many items from one column appear in other columns.:

How to Fix Counting how many items from one column appear in other columns. with SmartPCFixer?

1. You can Download SmartPCFixer here. Install it on your system. When you open it, it will perform a scan.

2. After the scan is done, you can see the errors and problems which need to be fixed.

3. The Fixing part is done, the speed of your computer will be much higher than before and the errors have been fixed.

Related: How Can You Update & Download NVidia 6100, 6800 GS/XT Display Driver v.260.89 WHQL,Where to Download NVidia GeForce 8800 GT WHQL-certified driver v.196.21,How to Update & Download NVidia GeForce Go 7400 Display Driver v.260.19.12,[Solved] Download NVidia GeForce GTX 460M Driver v.331.82,Download NVidia Quadro Plex Model IV VGA Driver v.304.43 Certified,Way to Download RealTek RTL8100C(L) Driver v.5.01,Way to Download RealTek RTL8100E Drivers v.694,Way to Update & Download RealTek RTL8101L Auto Installation Program v.6.110 driver,Method to Update & Download RealTek RTL8111G PXE and RPL ROM code v.2.58 driver,How to Update & Download RealTek RTL8411B(N) Driver v.10.003,Best Way to Update & Download ASUS A53SV nVidia Graphics Driver v.8.17.12.6686,Method to Herunterladen ASUS K75VJ Intel Rapid Storage Technology Treiber v.11.6.0.1030,How Can You Update & Download ASUS CG8580 Intel Chipset Driver v.9.3.0.1019,Method to Update & Download ASUS K41VD Intel INF Update Driver v.9.1.1.1015,Way to Update & Download ASUS Pro70T NB Probe v.3.0.0026 driver
Read More: Fast Solution to Error: Connection is \"limited\" with \"no internet access\".,[Anwsered] Contacts list - Win 7 Live Mail,Copying Excel Worksheet and printing [Anwsered],Troubleshoot:Copy function is not working,Troubleshooter of Error: Copy sheet range including graph to word allways includes link to graph,Closing Internet Explorer causes error,Compare 2 Tables and Calculate the PROFIT Faster,Computer goes to Windows Boot Manager after Start,Connect to one of my network computer remotely when don't allow exception box Marked,computer locking up randomly