Home > Microsoft > [VBA]マス比較

[VBA]マス比較

2009-05-03 (日) 22:28
Microsoft
EXCEL | Macro | VBA

Private Sub onajika()
    Dim i As Integer
    Dim j As Integer
    Dim cnt As Integer
    cnt = 1
    Dim tt As Integer
    tt = 0
    Dim wk As Integer
    wk = 1

    For i = 1 To 102 'Worksheets(wk).Cells.Count
        tt = 0
        For j = 1 To 102 'Worksheets(wk).Cells.Count
            If Worksheets(wk).Cells(i, 1).Value = Worksheets(wk).Cells(j, 2) Then
                tt = 1
                Exit For
            End If
        Next
        If tt = 0 Then
           Worksheets(wk).Range("C" & i).Value = Worksheets(wk).Cells(i, 1).Value
           Worksheets(wk).Range("D" & cnt).Value = Worksheets(wk).Cells(i, 1).Value
           cnt = cnt + 1
        End If
    Next
End Sub

更新@2011.03.03 22:43

タグ: EXCEL, Macro, VBA

Comments:0

Trackbacks:0

Trackback URL for this entry: http://qooga.jb-jk.net/wp/2009/05/vba_trout_comparison/trackback/
Listed below are links to weblogs that reference: http://qooga.jb-jk.net/wp[VBA]マス比較 from MOT：主にプログラム勉強メモ部屋

Home > Microsoft > [VBA]マス比較

Pages

Recent Entries

Categories

Archives

Search

Option

Feeds

commercial

Mobile

Meta

Tag Cloud

TOP10

[wp×SQLite]Warning: array_merge() - 6,528 views
PHPでの配列操作メモ - 3,667 views
携帯用画像転送不可設定用 - 2,740 views
TortoiseSVNと共存出来るSVN　Mercurial(hg) - 2,203 views
Twitterbird Internet Explorer用修正 - 2,178 views
phpMyAdminで文字コードを変更 - 1,838 views
htmlspecialcharsとhtmlentities　変換とデコード - 1,604 views
携帯用各クローラーのUSER AGENT - 1,572 views
SQLiteの特徴 - 1,516 views
iモードの絵文字をPCブラウザに表示する - 1,451 views

commercial

Return to page top

[VBA]マス比較

関連する投稿

Comments:0

Trackbacks:0