ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

°ÝÃ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

Book1.rar (6.15 KB)

joyce

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

TOP

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
ù

TOP

¦^´_ 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

TOP

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

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

TOP

¥»©«³Ì«á¥Ñ owen06 ©ó 2015-2-12 14:59 ½s¿è

¦^´_ 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

TOP

¦^´_ 6# owen06


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

TOP

¦^´_ 4# owen06


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

TOP

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

TOP

¦^´_ 9# fantersy


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

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD