¤u§@ªí¦P¨B¼W¥[¸ê®Æ

leiru

°ÝÃD¡G
sheet2¤u§@ªíªºaÄæ¤ÎbÄæ¬O§ì¨úsheet1ªºaÄæ¤ÎbÄæ¡Asheet1ªºa,bÄæ¸ê®Æ·|¤£Â_¼W¥[¡A«hsheet2ªºa,bÄæ¤]­n¦P¨B¼W¥[
½Ð°Ý­n¦p¦ó³]©w¤½¦¡¡H

ANGELA

A2=IF(Sheet1!A2="","",Sheet1!A2)

rouber590324

DEAR SIR
  ¥ÎVBA¦p¤U©ñ©ó SHEET1 ¤º

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet2.[A1:b65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[B65536].End(xlUp).Row
For M = 1 To X
Sheet2.Cells(M, 1) = Sheet1.Cells(M, 1)
Next
For N = 1 To Y
Sheet2.Cells(N, 2) = Sheet1.Cells(N, 2)
Next
End Sub

owen06

¦^´_ 1# leiru


    ¸Õ¸Õ¬Ý

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Target
   
3.   If .Row >= 2 And .Column = 1 Or .Column = 2 Then
   
4.     tar = .Address(0, 0)
   
5.     Sheets("sheet2").Range(tar) = .Value
   
6.   End If
   
7. End With
   
8. End Sub

½Æ»s¥N½X

leiru

ÁÂÁÂANGELA ¤Îrouber590324 ¤Îowen06 ¦^ÂÐ...
¤£·|vba,½Ð°Ý¬O§_¥i¥H³]©w¨ç¼Æ....

angela¤j®v,¦¹¤½¦¡¦bsheet2¬O­n¤U©Ô,·Q³]©wªº¤½¦¡¥i¥H¦Û°Ê²£¥Í,¤£¥Î§@¤U©Ô¦¡¤~²£¥Í·sªº¸ê®Æ

owen06

¦^´_ 5# leiru


    vba¤S¤£Ãø¡A¦ó¥²­n±Æ¥¸©O¡H²¦³º¥u¾a¤½¦¡¡A«ÜÃø¹F¦¨³oºØ¦Û°Êªº°Ê§@¡C
    ¥ýÂI¤W­±ªº¡y½Æ»s¥N½X¡z¡AµM«á¦b§AªºÀɮ׸̫öalt+F11¡A¸õ¥Xvba½s¿èµøµ¡¡AµM«áÂI¡y¤u§@ªí1¡z2¤U¡A¶K¤W¥N½X¡A´N§¹¦¨¤F§r¡C

leiru

¦^´_ 6# owen06


   ÁÂÁ±zªº¦^ÂÐ,§Ú¦A¸Õ¸Õ¬Ý

leiru

¦^´_ 4# owen06


    ½Ð°Ý,­YSHEET1¦A¼W¥[Äæ¦ì,¦¹VBA­n¦p¦ó­×§ï
ÁÂÁÂ

fantersy

If .Row >= 2 And .Column = 1 Or .Column = 2 Then
Column¬OÄæ 1©Î2
­Y­n¼W¥[À³¸Ó¬O§ï³oÃ䪺¼Æ­È

leiru

¦^´_ 9# fantersy


   ¦A¸Õ¸Õ¬Ý....
  ½Ð°Ý,­Y¤u§@ªí¦WºÙ¤]§ï¦W,­n¦p¦ó­×§ï¼Ò²Õ¤º®e